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INTRODUZIONE 


Per la priaa volta sui Personal Coaputer viene fornita I' elenco 
disasseablato del Sisteaa Operativo. Si tratta in effetti di un' 
elenco di routines e locazioni che peraettono per la priaa volta a 
chiunque desideri operare con questo coaputer di poter effettuare un 
lavoro serio e sopratutto di non essere costretti a perdere giorni e 
giorni di tentativi e prove. 

Naturalaente e’ richiesta una certa conoscenza del linguaggio 
aacchina e dell' Asseabler per il quale ci peraettiaao di consigliare 
il voluae CORSO 01 ASSEMBLER PER IL CBM64 che viene consegnato 
insieae ad una cassetta (o disco a richieat) contenente il Monitor, 
1' Asseabler, il Disasseabler écc. 

Lo scopo di questo libro e' quello di fornire una lista dettagliata 
del contenuto delle ROM e-quindi di TUTTO il Sisteaa Operativo del 
coaputer CBM64. 

Poiché' esistono due arpe di ROM, che vanno rispettivaaente da A000 a 
BFFF e da E000 a FFFF e che possono essere disabilitate 
separataaente, i listati che costituiscono la parte centrale del 
voluae, sono stati distinti in due parti ad ognuna delle quali e' 
allegato anche il relativi Cross Reference. 

A parte i listati relativi alle pagine 0/1/2/3, le colonne devono 
essere lette nella seguente aaniera: 

1. Indirizzo 

2. Codice oggetto 

3. Nuaero di linea 

4. Label 

5. Istruzione aneaonica 

6. Operando 

7. Consenti 

Tutte le Label hanno un suffisso di quattro caratteri esadeciaali 
(due per la pagina zero) che rappresentano 1' indirizzo attuale. 

Il prefisso di un un solo carattere può' averj il seguente 
significato: 

B - Branch label 
J - Juap label 
$ - Subroutine label 
T - Table (data) label 


- I - 



N - Nord Label 
Z - Zero page label 
X - Esternai label 

Alla fine di ognuno dei due listati, rispettivamente dell* Interprete 
Basic e del Sistema Operativo vero e proprio si trova un Cross 
Reference. Per ciascuna Label, messe in ordine alfabetico, si trova 
1* indirizzo della Label stessa e tutti i numeri di salto della 
Label. 

A) Le pagine 1-3 contengono la parte del Sistema Operativo relativo 
alle pagine 0/1/2/3 della memoria utilizzata dall 1 Interprete Basic. 

B) Da pagina 5 a 105 e 1 presente il listato disassemblato e 
commentato dell' Inteprete Basic, mentre da pagina 106 a 121 il 
relativo Cross Reference. 

C) Da pagina 122 a pagina 126 sono presenti le pagine 0/1/2/3 della 
memoria utilizzate dal Sistema Operativo ( parte KERKAL). 

D) Da pagina 127 a pagina 222 le periferiche di I/O e le routines 
Kernal disassemblate. Da pagina 223 a 224 i Vettori Kernal. 

E) Le pagine da 225 a 239 contengono il Cross Reference relativo alle 
routines Kernal mentre da pagina 239 a 242 il Cross Reference della 
pagina zero usata dal Sistema Operativo. 

Inoltre in Appendice sono riportate sia le locazioni delle pagine 
0/1/2/3/4 le routines mnemoniche relative al CBH64, al VIC ed alle 
serie 3000 e 4000. 

Lo stesso e’ stato fatto per routines del Sistema Operativo con un 
breve commento. 
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1 

2 

3 

4 


.L 

.11 

CBM-64-Part One 


5 


0000 

6 ZOO 

WÉ 

$oo 

0001 

7 ZOt 

- 

$01 


8 ; 

bit 

0 (output) 


9 ; 

bit 

1 (output) 


io -, 

bit 

2 (output) 


il ; 

bit 

3 (output) 


12 ; 

bit 4 (input) 


13 ; 

bit 

5 (output) 


14 ; 

bit 

6 unused 


15 ; 

bit 

7 unused 

0002 

16 202 

a 

$02 

0003 

17 Z03 

■ 

$03 

0004 

18 Z04 

m 

$04 

0007 

19 Z07 

m 

$07 

0008 

20 Z08. 

m 

$08 

0009 

21 Z09 

m 

$09 

000B 

22 Z0B 

■m 

$os 

oooc 

23 Z0C 

m 

$0C 

000D 

24 ZOO 

w 

S0D 

000E 

25 ZOE 

m 

$0E 

000F 

26 Z0F 

a 

$0F 

0010 

27 ZIO 

XV 

$10 

0011 

28 211 

a 

$11 

0012 

29 Z12 

■ 

$12 

0013 

30 213 

sa 

$13 

0014 

31 Z14 

m 

$14 

0015 

32 ZI5 

m 

$15 

0016 

33 Z16 

m 

$16 

0017 

34 ZI 7 

m 

$17 

0018 

35 Z18 

m 

$18 

0019 

36 Z19 

m 

$19 

0C22 

37 Z22 

W 

$22 

0023 

38 Z23 

m 

$23 

0024 

39 Z24 

■ 

$24 

0025 

40 Z25 

■ 

$25 

0026 

41 Z26 

m 

$26 

0027 

42 Z27 

■ 

$27 

0028 

43 Z28 

a 

$28 

0029 

44 Z29 

a 

$29 

002 B 

45 Z2B 

a 

$2B 

002C 

46 Z2C 

m 

$2C 

002D 

47 Z2D 

m 

$2D 

002E 

48 Z2E 

a 

$2£ 

002F 

49 Z2F 

m 

$2F 

0030 

50 Z30 

m 

$30 

0031 

51 Z31 

a 

$31 

0032 

52 Z32 

m 

$32 

0033 

53 Z33 

m 

$33 

0034 

54 Z34 

a 

$34 

0035 

55 235 

a 

$35 

0036 

56 Z36 

m 

$36 

0037 

57 Z37 

a 

$37 

0038 

58 238 

m 

$38 

0039 

59 Z39 

m 

$39 


;6510 data direcclon register 
;6510 I/O resister 
O-RAM at, $A000-$BFFF (BASIC area) 
O-RAM at SE00O-SEFFF (Kernal area) 
O-accesa CRT shapes at $D000-SDFFF 
cassette irrite line 
cassette sense line 
cassette uotor control 


;dummy address £or offset 

;fixed-float vector 

;high byte of sane 

;separator/terminator/work field 

; terminator/AND uork field 

;character position fot TAB 

jlength BASIC line/AND-OR swltch/# DIM 

;reference/declaractlon flag 

;type: FF-string, 00-numerlc 

;type: 80«integer, OO-floatlng point 

;DATA/string/error flag 

;subscript/'fn flag/integers-arrays flag 

;0”iaput, $40-get, $98»read 

;<»> operator 

;CMD file nunber 

;integer vaine (work) 

;blgh byte of sane 

jstring descriptor stack index 

; previene strlng descriptor staci index 

;high byte of same 

; hot toc of string descriptor stack 

jotility pointer area 


;product for nultipllcatlon 


jpointer to start of BASIC 

;high byte cf sane 

;pointer start of varlables 

;hlgh byte of sane 

;polnter to start of arrays 

;hlgh byte of fame 

;pointer to end of arrays 

;high byte of same 

;polnter to start of strlng Storage 

;hlgh byte of same 

;uellity strlng pointer 

;hlgh byte of sane 

;pointer to llnlt of menory 

;high byte of sane 

;current BASIC line nunber 
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003A 

60 Z3A 

S 

$3A 

high byte of sane 

003B 

61 Z3B 

« 

S3B 

prevlous BASIC line number 

003C 

62 Z3C 

■■ 

$3C 

high byte of sanie 

003D 

63 Z3D 


$30 

pointer to BASIC statement for CONT 

003E 

64 Z3E 


$3E 

high byte of sanie 

003F 

65 Z3F 

m 

$3F 

current DATA line munber 

0040 

66 Z40 

m 

$40 

high byte of sanie 

0041 

67 Z41 

m 

$41 

current DATA address 

0042 

68 Z42 

m 

$42 

high byte of same 

0043 

69 Z43 


$43 

temporary read pointer 

0044 

70 Z44 


$44 

high byte of sanie 

0045 

71 Z45 

m 

$45 

current variable nane 

0046 

72 Z46 

m 

$46 

second byte of same 

0047 

;; 54 ; 

■ 

$47 

current variable address 

0048 

74 Z48 

m 

$48 

high byte of sane 

0049 

75 Z49 


$49 

variable pointer for F0R/NEXT 

004A 

76 Z4A 


$4A 

high byte of same 

004B 

77 Z4B 

m 

$4B 

save area 

004C 

78 Z4C 

m 

$4C 

high byte of same 

004D 

79 Z4D 

m 

$4D 

comparison eymbol accumulator 

004E 

80 Z4E 

m 

$4E 

mise, work area 

004F 

81 Z4F 

m 

$4F 


0050 

82 Z50 

m 

$50 

" " 

0051 

83 Z51 

m 

$51 

" - 

0053 

84 Z53 

» 

$53 

m 

0055 

85 Z55 

■ 

$55 

*■ 

0056 

86 Z56 

m 

$56 

" 

0057 

87 Z57 

m 

$S7 

mise, numeric work area 

0058 

88 Z58 

m 

$58 

" 

0059 

89 Z59 

• 

$59 

" * 

005A 

90 Z5A 

m 

$5A 

*• 

005 B 

91 Z5B 


$5B 

" 

005C 

92 Z5C 

* 

$5C 


005D 

93 Z5D 

m 

$50 

- 

005E 

94 Z5E 

■ 

. $5E 

- 

005F 

95 Z5F 

m 

$5F 

" ** 

0060 

96 Z60 

m 

$60 

" “ 

0061 

97 Z61 

m 

$61 

floatlng point accu P X - exponent 

0062 

98 Z62 

m 

$62 

flp # 1 - mantissa 

0063 

99 Z63 

m 

$63 . 

• w 

0064 

100 Z64 

m 

$64 

m m 

0065 

101 Z65 

m 

$65 

• • 

0066 

102 Z66 

m 

$66 

flp # 1 - sign 

0067 

103 Z67 

m 

$67 

saved sign of flp accu 

0068 

104 Z68 

m 

$68 

flp accu # 1 paddtng 

0069 

105 Z69 

m 

$69 

flp accu 1 2 thru 26E 

006A 

106 Z6A 

m 

$6A 

006 B 

107 Z6B 

m 

$6B 


006C 

108 Z6C 

m 

$6C 


006D 

109 Z6D 

m 

$60 


006E 

110 Z6E 

m 

$6E 


006 F 

111 Z6F 

m 

$6F 

sign comparison accu 01 vs accu # 2 

0070 

112 Z70 

m 

$70 

work pointer/guard bit 

0071 

113 Z71 

» 

$71 

output Index 

0072 

114 Z72 

m 

$72 

high byte of same 

007A 

115 27A 

m 

$7A 

current character address 

007B 

116 Z7B 

m 

$7B 

high byte of same 
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0054 

118 X0054 - 

$54 

JMP vector for functlons 

0073 

119 

X0073 - 

$73 

get next character 

0079 

120 

X0079 - 

$79 

get current character 

0080 

121 

X0080 - 

$80 

check for numeric character 

0100 

122 

X0100 - 

$0100 

bottom of stack 

0101 

123 

X0101 - 

$0101 

vork, area .for flp to string converslon 

0102 

124 

X0102 - 

$0102 

" ** 

0103 

125 

X0103 - 

$0103 

" ” 

0104 

126 

XQ104 « 

$0104 

* 

01 FÉ 

127 

X01FE - 

$01FE 

line number for line in input buffer 

01FF 

128 

X01FF « 

$01FF 

high byte of same 

0200 

129 

X0200 « 

$0200 

BASIC Input buffer 


130 

; 




131 

jOperating System vector table 


132 

1 



0300 

133 

X0300 - 

$0300 

error oessage link, std value - $E38B 

0302 

134 

X0302 » 

$0302 

BASIC «ari» start vector, std « $A483 

0304 

135 

X0304 « 

$0304 

cruneh BASIC tokens, std • SA57C 

0306 

136 X0306 - 

$0306 

prlnc tokens vector, std value “ $A71A 

0308 

137 

X0308 - 

$0308 

execute stmt vector, std value • $a7e4 

030A 

138 X030A.- 

$030A ;get erithmetle eleaent, std “ $AE86 

0310 

139 

X0310 - 

$0310 

USR JMP vector, std value - SB248 

0314 

140 W0314 - 

$0314 

IRQ vector, std value « $EA31 

0316 

141 

W0316 - 

$0316 

BRK vector, std value “ $FE66 

0318 

142 

W0318 » 

$0318 

NH1 vector, std value “ $FE47 

031A 

143 W031A - 

$031A 

OPEK vector, std value » $F34A 

031C 

144 

W031C - 

$031C 

CL0SE vector, std value “ $F291 

031E 

145 

U031E - 

$031E 

set input vector, std value “ $F20E 

0320 

146 W0320 - 

$0320 

set output vector, std value * $F250 

0322 

147 

M0322 - 

$0322 

restore 1/0 vector, std value » $F333 

0324 

148 

W0324 - 

$0324 

INPUT vector, std value « SF157 

0326 


ic;;t * 

$0326 

OUTPUT vector, std value - $F1CA 

0328 

150 W0328 - 

$0326 

test Stop Key vector, std value ■ $FiED 

032A 

151 

W032A - 

$032A 

GET vector, std value • $F13E 

C32C 

152 

W032C - 

$032C 

dose files and char.oel b , std » $1321 

032E 

153 

V032E - 

$032E 

unused vector, std value » $FE66 (BRK.) 

0330 

154 

W0330 - 

$0330 

Load RAM vector, std value - $F4A5 

0332 

155 W0332 - 

$0332 

Save RAM vector, std value - $F5ED 


156 

> 



033C 

157 

• OR 

$33C 


033C 

158 

.DS 

192 

cassette buffer 

03FC 

159 

.DS 

4 


0400 

160 

.DS 

1000 

video RAM 

07EB 

161 

• DS 

24 

sprite pointers 

0800 

162 

• OS 

$B800 

standard BASIC test area 
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9FEA 

164 

X9FEA 

« 

S9FEA 

£000 

165 

XEOOO 


SE000 

£043 

166 

XE043 


SE043 

E097 

167 

WE097 


SE097 

E10C 

168 

XE10C 


SEI OC 

£112 

169 

XE112 


$EU2 

£118 

170 

XE118 


SEI 18 

BUE 

171 

XE11E 


$E L1E 

E124 

172 

XE124 


$E124 

E12A 

173 

VE12A 


SE12A 

E156 

174 

WE156 


$E156 

E165 

175 

WE165 


SEL65 

E168 

176 

WE168 


SE 168 

E1BE 

177 

VE1BE 


SE1BE 

E1C7 

178 

WE1C7 


SE1C7 

E264 

179 

WE264 


$E264 

E26B 

180 

WE26B 


SE26B 

E2B4 

181 

WE2B4 


$E2B4 

E30E 

182 

WE30E 


SE30E 

E37B 

183 

WE37B 


SE37B 

E386 

184 

XE386 


$E386 

E394 

185 

WE394 


SE394 

FF90 

186 

XFF9Ò 


SFF90 

FFB7 

187 

XFFB7 


SFFB7 

FFCC 

186 

XFFCC 


5FFCC 

FFDB 

189 

XFFDB 


$FFDB 

FFDE 

190 

XFFDE 


$FFDE 

FFE1 

191 

XFFE1 


SFFEl 

FFE7 

192 

XFFE7 


SFFE7 

FFFO 

193 

XFFF0 

W 

$FFF0 


;address to accese funetion jump table 
icontinuation of RND routine 
compute odd degrees for SIN and ATN 
, RND command 
;output a character 
input a character 
;set output device 
;set input device 

get a character from curreiu device 
,SYS command 
SAVE command 
; VERIFY command 
LOAD command 
OPEN command 
CLOSE command 
COS command 
SIN command 
TAN command 
ATN command 
Warm Start entry 
print nessage READY 
RESET routine 
control kernal messages 
read I/O etatus word 
restore 1/0 devices to default 
set reai time clock 
read reai time clock 
check Stop key 

Close all channels and flles 
Read/Set XY cursor position 
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AOOO 195 .OR SAOOO 

AOOO 94E3 196 .W WE394 ;RESET address 

A002 7BE3 197 .W WE37B ;Waro Start address 

198 ; 

199 ;program identifier (not tested) 

200 ; 

A004 43424D 201 -BY 'C,'B,'M,'B,'A,'S,'1,'C 

202 ; 

203 ;address table for BASIC comoands 

204 .address - l used slace routlnes reached via RTS 

205 ; 


AOQC 

30A8 

206 TAOOC 

.V 

VA831-1 

END 

AOOE 

41A7 

207 

.u 

UA742-1 

FOR 

A010 

1DAD 

208 

.V 

WAD1E-1 

NEXT 

A012 

F7A8 

209 

.V 

VA8F8-1 

DATA 

A014 

A4AB 

210 

•w 

WABA5-1 

INPUT# 

A016 

BEAB 

211 


WABBF-l 

INPUT 

A018 

80B0 

212 

-w 

HB081-1 

DIM 

A01A 

05AC 

213 

• V 

WAC06-1 

READ 

A01C 

A4a9 

214 

-V 

VA9A5-1 

LEI 

A01E 

9FA8 

215 

.H 

VASAO-1 

GOTO 

A020 

70A8 

216 

.W 

WA871-1 

RUN 

A022 

27A9 

217 


WA928-1 

IF 

A024 

1CA8 

218 

.V 

WA81D-1 

RESTORE 

A026 

82A8 

219 

.V 

WA883-1 

COSUB 

A028 

D1A8 

220 

.w 

WA8D2-1 

RETURN 

A02A 

3AA9 

221 

.W 

HA93B-1 

REM 

A02C 

2EA8 

222 

-H 

WA82F-1 

STOP 

A02E 

4AA9 

223 

.w 

HA94B-1 

ON 

A030 

2CB8 

224 

•w 

WB82D-1 

WAIT 

A032 

67E1 

225 

.w 

WE168-1 

EOAD 

A034 

55E1 

226 

•w 

WE156-1 

SAVE 

A036 

64E1 

227 

.V 

WE165-1 

VERIFY 

A038 

B2B3 

228 

-H 

WB3B3-1 

DEF 

A03A 

23B8 

229 

•w 

WB824-1 

POKE 

A03C 

7FAA 

230 

-w 

WAA80-1 

PRINT# 

A03E 

9FAA 

231 

.w 

WAAAO-1 

PRINT 

A040 

56A8 

232 

.w 

UA857-1 

CONT 

A042 

9BA6 

233 

-W 

HA69C-1 

LIST 

A044 

5DA6 

234 

.V 

WA65E-1 

CLR 

A046 

85AA 

235 

• V 

WAA86-1 

CMD 

A048 

29E1 

236 

• H 

WE12A-1 

SYS 

A04A 

BDE1 

237 

•w 

WE1BE-1 

OPEN 

A04C 

C6E1 

238 

• U 

VE1C7-1 

close 

A04E 

7AAB 

239 

.V 

HAB7B-1 

GET 

A050 

41A6 

240 

•w 

WA642-1 

NEH 
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242 ;addres6 

table for 

BASIC funccions 


243 ; 



A052 39BC 

244 .V 

WBC39 

;SGN 

A054 CCBC 

245 .W 

VBCCC 

; 1NT 

A056 58BC 

246 -V 

WBC58 

; ABS 

AQ58 1003 

247 .W 

X0310 

;USR 

A05A 7DB3 

248 .W 

WB37D 

;FX£ 

A05C 9EB3 

249 .W 

WB39E 

;P0S 

A05E 71BF 

250 .W 

WBF71 

;SQR 

A060 97E0 

251 .tf 

WE097 

; RND 

A062 EAB9 

252 .U 

WB9EA 

;LOG 

A064 EDBF 

253 .W 

UBFED 

;EXP 

A066 64E2 

254 -W 

HE264 

;COS 

A068 6BE2 

255 -W 

WE26B 

;SIN 

A06A B4E2 

256 . V 

WE2B4 

;TAN 

A06C OEE3 

257 .W 

WE30E 

;ATN 

A06E 0DB8 

258 .V 

VJB80D 

; PEEK 

A070 7CB7 

259 .W 

WB77C 

;LEN 

A072 65B4 

260 .W 

WB465 

;STR$ 

A074 ADB7 

261 -ir 

WE7AD 

;VAL 

A076 8BB7 

262 -V 

WB78B 

;ASC 

A078 ECB6 

263 .U 

WB6EC 

;CHR$ 

A07A OOB7 

264 -V 

WB700 

;LEFT$ 

A07C 2CB7 

265 -V 

WB72C 

;RIGHT$ 

A07E 37B7 

266 .V 

WB737 

;MID$ 


267 ; 




268 ; Cable of 

priorities and addresses 


269 ;for diadic operators 


270 ; 



A080 79 

271 TA080 .87 

$79 


A081 69B8 

272 .W 

WB86A-1 

; plus 


273 ; 



A083 79 

274 -BY 

$79 


A084 52B8 

275 .W 

WB853-1 



276 ; 



A086 7B 

277 .BY 

$7B 


A087 2ABA 

278 .W 

WBA2B-1 

; r ime s 


279 ; 



A089 7B 

280 .BY 

$7B 


A08A 11BB 

281 .U 

WBB12-1 

;dlvlded by 


282 ; 



A08C 7F 

283 .BY 

$7F 


A08D 7ABF 

284 .W 

W3F7B-1 

;ralse to power 


285 ; 



A08F 50 

286 .BY 

$50 


A090 E8AF 

287 .V 

WAFE9-1 

;logical ANO 


288 ; 



A092 46 

289 .BY 

$46 


A093 E5AF 

290 .W 

HAFE6-1 

;logicai OR 


291 ; 



A095 70 

292 -BY 

$7D 


A096 B3BF 

293 .W 

WBFB4-1 

;aonadic mìnus 


294 ; 



A098 SA 

295 .BY 

$5A 


A099 D3AE 

296 .W 

WAED4-1 

jmonadlc NOI 


297 ; 



A09B 64 

298 .BY 

$64 


A09C 15B0 

299 -W 

WB016-1 

«1 

V 

a 
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301 ; cable of keyworde 

302 ;saae sequence as address cable TAOOC 

303 ; 


A09E 

454EC4 

304 TA09E 

-BY 

A0A1 

464FD2 

305 

.BY 

A0A4 

4E4558 

306 

.BY 

A0A8 

444154 

307 

-BY 

AOAC 

494E50 

308 

■ BY 

AOB2 

494E50 

309 

.BY 

AOB7 

4449CD 

310 

• BY 

AORA 

524541 

311 

-BY 

AOBE 4C45D4 

312 

.BY 

A0C1 

474F54 

313 

-BY 

AOC5 

5255CE 

314 

• BY 

AOC8 

49C6 

315 

• BY 

AOCA 524553 

316 

• BY 

A0D1 

474F53 

317 

-BY 

A0D6 

524554 

318 

• BY 

AODC 

5245CD 

319 

• BY 

AODF 

53544F 

320 

-BY 

A0E3 

4FCE 

321 

..BY 

AOE5 

574149 

322 

.BY 

A0E9 

4C4F41 

323 

.BY 

AOEO 

534156 

324 

• BY 

AOFl 

564552 

325 

■ BY 

A0F7 

4445C6 

326 

• BY 

AOFA 

504F4B 

327 

.BY 

AOFE 

505249 

328 

-BY 

A104 

505249 

329 

.BY 

Al 09 

434F4E 

330 

-BY 

A10D 

4C4953 

331 

.BY 

AHI 

434CD2 

332 

.BY 

Al 14 

434DC4 

333 

.BY 

A117 

535903 

334 

.BY 

AllA 4F5045 

335 

.BY 

A11E 

434C4F 

336 

.BY 

A123 

4745D4 

337 

.BY 

A126 

4E45D7 

338 

• BY 


'E,'N,'1H$B0 

'F,'0,'R+$80 

'N,'E,'X,'T+$80 

'D,'A,'T,'A+$80 

'l p 'N,'P,'U,'T,'#+$80 

'I,'N,'P,'U,'T+S80 

't>,'I,'Mk$80 

'R,'E,'A P 'I»$80 

'L,'E,'T+$80 

'C/0/T,'0*$80 

'R p 'U p '!H-$80 

'l/F+$80 

-R,'E,'S,'T,'0,'R,'E+$80 

'G,'0,'S,'U,'B+S80 

'R,'E,'T p 'U p 'R p 'N+-$B0 

'R,'E p 'tt+$80 

'S,'T,'0,'P+$80 

'0,'JH-$80 

'W,'A,'l,'T+$80 

*X.,'0,'A,'I>f$80 

'S,'A,'V,'E+$80 

'V,'E,'R,'I,'Fc'Y+$80 

'D,'E,'F+$80 

'P,'0,'K,'E+$80 

'P,'R,'l,'N,'T/#+$S0 

'P,'R,'l,'N,'T+$80 

'C P '0 P 'N.'T+$80 

'L,'l,'S,'T+$80 

'C,'L,'R+580 

'C,'M,'D+$80 

'S p 'Y p 'S+$80 

'O,'P,'E,'tH-$80 

'C,'L,'0,'S,'E+$80 

'G,'E,'T+S80 

'B,'E,'W-$80 
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340 

;table of 

functlon6 



341 

• 


A129 

544142 

342 

;by 

'T,'A,'B,'(+$80 

A12D 

54 CF 

343 

.BY 

'T,'O+$80 

A12F 

46CE 

344 

.BY 

'F,'H+$80 

A131 

535043 

345 

.BY 

'S,'P,'C.'(+$80 

A135 

544845 

346 

.BY 

'T,'H,'£,'N+$8Q 

A139 

4E4FD4 

347 

.BY 

'N,'0,'T+$60 

A13C 

535445 

348 

-BY 

'S,'T,'£,'P+$80 

A140 

AB 

349 

.BY 

'++$80 

A141 

AD 

350 

.BY 

'-+$80 

A142 

AA 

351 

.BY 

'*+$80 

A143 

AF 

352 

.BY 

'/+$BQ 

A144 

DE 

353 

.BY $DE ;exponent sign 

A145 

414EC4 

354 

.BY 

'A,'N,'CM-$80 

Al 48 

4FD2 

355 

-BY 

'0,'R+$80 

A14A 

BE 

356 

• BY 

'>+$80 

A14B 

BD 

357 

.BY 

'“+$80 

A14C 

BC 

358 

■ BY 

'<+$80 

A14D 

5347CE 

359 

.BY 

'S,'G,'N+$80 

A150 494ED4 

360 

.BY 

'l,'N,'r+$80 

A153 

4142D3 

361 

.BY 

'A,'B,'S+$80 

Al 56 

5553D2 

362 

.BY 

'U,'S,'R+$80 

Al 59 

4652C5 

363 

• BY 

'F,'R,'E+$80 

A15C 

504FD3 

364 

.BY 

'P,'0,'S+$80 

A15F 

535ID2 

365 

.BY 

'S,'Q,'R+$80 

A162 

524EC4 

366 

• BY 

'R,'N,'I>+$80 

A165 

4C4FC7 

367 

.BY 

'L,'0,'C+$80 

A168 

4558D0 

368 

.BY 

'E,'X,'P+$80 

A16B 434FD3 

369 

-BY 

'C,'0,'S+$80 

A16E 

5349CE 

370 

.BY 

'S,'I,'K+$80 

Al 71 

5441CE 

371 

-BY 

'T,'A,'»+$80 

Al 74 

4154CE 

372 

.BY 

'A,'T,'K+$80 

A177 

504545 

373 

.BY 

'P,'E,'E,'R+$80 

A17B 4C45CE 

374 

.BY 

"L,'E,'N+$80 

A17E 

535452 

375 

• BY 

'S,'X,'R,'$+$80 

A182 

5641CC 

376 

.BY 

'V,'A,'L+$80 

Al 85 

4153C3 

377 

.BY 

'A,'S,'C+$80 

A188 434852 

378 

.BY 

'C.'H,'R,'$+$80 

Al SC 4C4546 

379 

• BY 

'L,'E,'F,'T,'$+$80 

A191 

524947 

380 

.BY 

'R,'I,'C,'H,'T,'$+$80 

A197 

4S4944 

381 

• BY 

'M,'I,'D,'$+$80 



382 

i 




383 

;other conmands 



384 

s 


A19B 47CF 

385 

-BY 

'G,'O+$B0 

A19D 00 

386 

.BY $00 ;end of keywords 
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388 ;error messages 

389 * 

A19E 544F4F 390 TA19E .BY 'I,'0,'0,' ,'M,'A,'R,'Y,' ,'F,'l,'L,'E,'S+$80 

Al AC 46494C 391 TA1AC .BY 'F,'l ,'L ,'E,' ,'0,'F,'E,'N+SBO 

A1B3 46494C 392 TA1B5 -BY 'F/I.'L.'E,' ,'K,'0,'I,' ,'0,'F,'E,'lf+$8D 

A1C2 46494C 393 XA1C2 .BY 'F,'I,'L,'E,' ,'N,'0 f 'T.' ,'F,'0,'U,'N,'OT-$80 

AIDO 444556 394 TA1D0 -BY 'D,'E,'V,'I,'C,'E,' ,'H,'0,'T,' 

A1DB 505245 395 .BY 'F,'R,'E,'S,'E,'N,'I+$BO 

A1E2 4E4F54 396 TA1E2 .BY 'N.'O.'T,' ,'I,'N,'P,'U,'I,' ,'F,'I ,'L,'E+$80 

A1F0 4E4F54 397 TA1F0 .BY 'H,'0,'X,' ,'0,'U,'I,'P,'C,'I,' ,'F,'I,'L,'E+S80 

A1FF 4D4953 398 TA1FF .BY 'M,'I ,'S,'S,' I ,'N,'G ,' ,'F,'I,'L.'E,' 

A20C 4E414D 399 .BY 'N,'A,'M,'E+$80 

A210 494C4C 400 TA210 .BY 'I,'L,'L,'E,'G,'A,'l.,' ,'D,'E,'V,'I,'C,'£,' 

A21F 4E554D 401 .BY 'N,'U,'K,'B,'E,'R+$80 

A225 4E4558 402 TA225 -BY 'N,'E,'X,'I,' ,'W,'I,'I,'H,'0,'U,'I 

A231 20464F 403 -BY ' ,'F,'0,'R+$8C 

A235 53594E 404 IA235 .BY 'S,'Y,'K,'T,'A,'X+$80 

A23B 524554 405 XA23B -BY 'R,'E,'I,'U,'R,'K,' ,'W,'I,'I,'H,'0,'U,'T,' 

A24A 474F53 406 .BY 'C,'O,'S,'U,'B+$80 

A24F 4F5554 407 XA24F .BY 'O.'U.'I,' ,'0,'F,' ,'D,'A,'T,'A+?80 

A25A 494C4C 408 XA25A- .BY 'I,'L,'L,'E,'C,'A,'I. 

A261 205155 409 -BY ' ,'Q,'U,'A,'N,'I,'I,'I,'Y+$80 

A26A 4F5645 410 XA26A .BY '0,'V,'E,'R,'F,'X.,'0,'t«-$80 

A272 4F5554 411 XA272 .BY 'O.'U.'I,' ,'0,'F,' ,'M,'E,'M,'0,'R,'Y+$80 

A27F 554E44 412 IA27F .BY 'U.'N.'D.'E,'F,$27 ,'D,' 

A287 535441 413 .BY 'S,'T,'A,'I,'E,'H,'E,'N,'T+$80 

A290 424144 414 IA290 .BY 'B.'A.'D,' ,'S,'U,'B,'S,'C,'R,'l,'F,'T4-$80 

A29D 524544 415 IA29D .BY 'R,'E.'D.'I,'M,$27,'D,' ,'A,'R,'R,'A,'Y+$80 

A2AA 444956 416 IA2AA .BY 'D,'I,'V,'I,'S.'I,'0,'N,' ,'B,'Y 

A2B5 205A4S 417 -BY ' ,'Z,'E,'R,'CH-S80 

A2BA 494C4C 418 XA2BA .BY 'I,'L,'L,'E,'C,'A,'I.,' ,'D,'I,'R,'£,'C,'T+$80 
A2C8 545950 419 XA2C8 .BY 'X,'Y,'P,'E,' ,'M,'I,'S,'M,'A,'T,'C,'H+$80 

A2D5 535452 420 IA2D5 .BY 'S,'I,'R,'l,'N,'C,' ,'X,'0,'0,' ,'E,'O,'N,'G+$80 

A2E4 46494C 421 IA2E4 .BY 'F,'l,'L,'E,' ,'D,'A,'X,'A+$80 

A2ED 464F52 422 IA2ED .BY 'F,'0,'R,'M,'U,'L,'A,' ,'I,'0,'0,' 

A2F9 434F4D 423 .BY 'C,'0,'M,'P,'L,'£,'X+580 

A300 43414E 424 IA300 .BY 'C.'A.'N,$Z7,'C,'0,'N,'X,'X,'N,'U,'E+$80 

A30E 554E44 425 XA30E -BY 'U,'N,'D,'E,'F,$27,'D 

A315 204655 426 .BY ' ,'F,'0,'H,'C,'I,'I,'0,'N+$80 

ASIE 564552 427 TA31E .BY 'V,'E,'R,'I,'F,'Y+$80 

A324 4C4F41 428 XA324 -BY 'L,'0,'À,'tH-$80 
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430 ;error mesaage addresa cable 

431 ; index 01-1E loaded loto X to reference mesaage cable 

432 ; 


A328 

9EA1 

433 TA328 

.W 

TA19E 

01 Too Many Files 

A3 2 A 

ACA1 

434 

.V 

TA1AC 

02 File Open 

A32C 

B5A1 

435 

.V 

TA1B5 

03 File Not Open 

A32E 

C2AI 

436 

.W 

TA1C2 

04 File Noe Found 

A3 30 

D0A1 

437 

.V 

TA1D0 

03 Device Not Presene 

A332 

E2A1 

438 

.w 

XA1E2 

06 Noe Input File 

A3 34 

F0A1 

439 

• V. 

TA1F0 

07 Not Output File 

A3 36 

FFA1 

440 

.V 

TA1FF 

08 Mlssing File Name 

A3 38 

10A2 

441 

• W 

TA210 

09 Xllegal Device Number 

A33A 

25A2 

442 

.w 

TA225 

OA Next Without For 

A33C 

35A2 

443 

.V 

TA235 

OB Syntax 

A33E 

3BA2 

444 

.w 

TA23B 

OC Return Vithout Gosub 

A340 

4FA2 

445 

-w 

IA24F 

OD Out Of Data 

A342 

5AA2 

446 

.V 

TA25A 

OE Xllegal Quantity 

A344 

6AA2 

447 

.u 

TA26A 

OF Overflov 

A346 

72A2 

448 

.V 

TA272 

10 Out Of Memory 

A3 48 

7FA2 

449 

-V 

TA27F 

Il Undef'd Statement 

A34A 

90A2 

450 

.w 

TA290 

12 Bad Subscript 

A34C 

9DA2 

451 

.V 

TA29D 

13 Redin"<ì Array 

A34E 

AAA2 

452 

-W 

TA2AA 

14 Division By Zero 

A3 50 

BAA2 

453 

.V 

TA2BA 

15 IIlegai Direct 

A352 

C8A2 

454 

.W 

TA2C8 

16 Type Mismatch 

A354 

D5A2 

455 

-W 

XA2D5 

17 Striug Too Long 

A3 56 

E4A2 

456 

.V 

TA2E4 

16 File Data 

A358 

EDA2 

457 

.u 

TA2ED 

19 Formula Too Compìex 

A3 5 A 

00A3 

458 

.w 

TA300 

1A Can't Continue 

A35C 

0EA3 

459 

.w 

TA30E 

1B Undef'd Functlon 

A35E 

1EA3 

460 

.w 

TA31E 

1C Verify 

A3 60 

24A3 

461 

.w 

XA324 

1D Load 

A362 

83A3 

462 

.w 

XA383 

1E Break. 



463 ; 




A3 64 

0D4F4B 

464 TA364 

.BY 

$OD,'O,'K,$OD,$00 

A369 

202045 

465 TA369 

• BY 

' ,'E,'R,'R,'O,'R,SO0 

A371 

20494E 

466 TA371 

.BY 


.$00 

A376 

ODOA52 

467 TA376 

•BY $0D,50A,'R,'E,'A,'D,'Y,'.,50D,?0A,$00 

A381 

ODOA 

468 TA381 

•BY $0D,$0A 


A383 

425245 

469 TA383 

.BY 

'B,'R,'E,'A,'K,$00,$A0 
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471 jsearch for "FOR" blocks era stack (code 81) 

472 ; 

473 ;if Z49/Z4A > $00FF, get FOR block wlth address - Z49/Z4A 

474 ;lf Z49/Z4A < $0100, get hlghest FOR block In Z49/Z4A 

475 ;upon exit, X - stack above FOR block 

476 ;Z-l when FOR block found 

477 ;Z“0 when FOR block not found 

478 ;A**code of block found 

479 ; 


A3 8A RA 

480 

SA38A TSX 


A38R E8 

481 

1NX 


A38C E8 

482 

INX 


A38D E8 

483 

INX 


A38E E8 

484 

INX 

;point to hlghest block 

A38F BD0101 

485 

BA38F LDA X0101.X 


A392 C981 

486 

CMP $81 

;if no FOR block 

A394 D021 

487 

BNE BA3B7 

;return wirh Z“0 

A396 A54A 

488 

LDA Z4A 


A398 D00A 

489 

BNE BA3A4 

;if no address 

A39A BD0201 

490 

LDA X0102.X 

;get address from hlghest block 

A39D 8549 

491 

STA Z49 


A39F BDO301 

492 

LDA X0103,X 


A3A2 854A 

493 

SIA Z4A 


A3A4 DD0301 

494 

BA3A4 CMP X0103.X 

; conpare address to block 

A3A7 D007 

495 

BNE BA3B0 


A3A9 A549 

496 

LDA Z49 


A3AB DD0201 

497 

CMP X0102.X 


A3AE F007 

498 

BEQ BA3B7 

;xeturn wlth Z“1 If equal 

A3B0 8A 

499 

BA3B0 TXA 

;lf not equal 

A3B1 18 

500 

CLC 


A3B2 6912 

501 

ADC $12 

;sklp a FOR block 

A3B4 AA 

502 

1AX 


A3B5 DODB 

503 

BNE BA38F 

;and try again 

A3B7 60 

504 

BA3B7 RTS 
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506 ;move bytes after a check for space 

507 ; 

A3B8 2008A4 508 SA3B8 JSR SA408 ; do array area overflow check for AY 

A3BB 8531 509 STA Z31 ;set nev end of array area 

A3BD 8432 510 STY Z32 

511 ; 

512 ;moTe bytes routine 

513 ;source addrese In Z5F/Z60 

514 ;end of source address In Z5A/Z5B 

515 ;end of destlnatlon address In Z58/Z59 

516 ; 

517 ;highest bytes ooved flrst 



518 

;X and Y at 0 upon 


519 

5 


A3BF 38 

520 SA3BF 

SEC 

A3C0 A55A 

521 


LDA Z5A 

A3C2 E55F 

522 


SBC Z5F 

A3C4 8522 

523 


STA Z22 

A3C6 A8 

524 


TAY 

A3C7 A55B 

525 


LDA Z5B 

A3C9 £560 

526 


SBC 260 

A3CB AA 

527 


TAX 

A3CC E8 

528 


INX 

A3 CD 98 

529 


TYA 

A3CE F023 

530 


BEQ BA3F3 

A3 DO Ai 5 A 

531 


LDA Z5A 

A3D2 38 

532 


SEC 

A3D3 £522 

533 


SBC Z22 

A3D5 855A 

534 


STA Z5A 

A3D7 B003 

535 


BCS BA3DC 

A3D9 C65B 

536 


DEC Z5B 

A3DB 38 

537 


SEC 

A3DC A558 

538 

BA3DC IDA Z58 

A3DE £522 

539 


SBC Z22 

A3E0 8558 

540 


STA Z58 

A3E2 B008 

541 


BCS BA3EC 

A3E4 C659 

542 


DEC Z59 

A3E6 9004 

543 


BCC BA3EC 

A3E8 B15A 

544 

BA3E8 LDA (ZSA),Y 

A3EA 9158 

545 


STA (Z58),Y 

A3EC 88 

546 

BA3EC 

DEY 

A3ED D0F9 

547 


BUE BA3E8 

A3EF B15A 

548 


LDA (Z5A),Y 

A3F1 9158 

549 


STA (Z58),Y 

A3F3 C65B 

550 BA3F3 

DEC Z5B 

A3F5 C659 

551 


DEC Z59 

A3F7 CA 

552 


DEX 

A3F8 D0F2 

553 


BUE BA3EC 

A3FA 60 

554 


RTS 


return 

;compute lengch of area to be aoved 
;Y«lov order 8 blts 

;X«high order 8 blts 

;lf multiple of 256, sklp remainder 

;Z5A/Z5B polnts to start source block 

;Z58/Z59 polnts to destlnatlon 

;£etch a byte froa source 
;move lt to destlnatlon 

;repeat for all 256 bytes In a page 
;also last byte 

;polnt to lover block of source 
;point to lover block of destlnatlon 

;repeat for all blocks 
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556 

;test 

for 2 * A bytes available oo thè stsck 



557 

» 





558 

;allow 62 bytes 

extra for interrupt processing 



559 

;indicate fatai 

error if not enough space left 



560 

; 



A3FB OA 

561 

SA3FB 

ASL A 

;multlply A. * 2 

A3FC 693E 

562 


ADC $3E 

;62 bytes extra 

A3FE 

B035 

553 


BCS BA435 

;error lf overflow 

A400 

8522 

564 


STA Z22 


A402 

BA 

565 


TSX 


A403 

E422 

566 


CPX 222 

;if stack above result 

A405 

902E 

567 


BCC BA435 

joverflow error 

A407 

60 

568 


RTS 




569 

» 





570 

;array area overflou check 



571 

J 



A408 

C434 

572 

SA408 

CPY 234 

;if A below string Storage pointer 

A40A 

9028 

573 


BCC BA434 

; return 

A40C 

D004 

574 


BNE BA412 


A40E 

C533 

575 


CMP 233 


A410 

9022 

576 


BCC BA434 


A412 

48 

577 

BA412 

PHA 

;save AY 

A413 

A209 

578 


LDX $09 


A415 

98 

579 


TYÀ 


A416 

48 

580 

BA416 

PHA 


A417 

B557 

581 


LDA 257,X 

; save Z58-Z6X on stack 

A419 

CA 

582 


DEX 


A41A 

10FA 

583 


BPL BA416 


A41C 

2026B5 

584 


JSR SB526 

; perforo string cleanup 

A41F 

A2F7 

585 


LDX $F7 


A421 

68 

586 

BA421 

PLA 


A4 22 

9561 

587 


STA Z6i,X 

;restore Z58-Z61 from stack 

A4 24 

ES 

588 


XHX 


A425 

30FA 

589 


BMI BA421 


A427 

68 

590 


PLA 


A428 

A8 

591 


TAY 


A429 

68 

592 


PLA 

jrestore AY 

A42A 

0434 

593 


CPY Z34 

;if AY stili above string pointer. 

A42C 

9006 

594 


BCC BA434 

;thcn error OUT OF MEMORY 

A42E 

D005 

595 


BNE BA435 


A4 30 

C533 

596 


Off Z33 


A4 32 

B001 

597 


BCS BA435 


A4 34 

60 

598 

BA434 

RTS 




599 

1 





600 

; fatai error OUT OF MEMORY 



601 

i 



A435 

A210 

602 

BA435 LDX $10 

;polnt to error OUT OF MEMORY 
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604 

;handle error messages 



605 

t 





606 

;X points 

to error message address table TA328 



607 




A437 

6C0003 

608 

JA437 JMP 

(X0300) 

;handle error message (normally A43A) 



609 

» 





610 

; standard 

error message handler 



611 

» 



A4 3 A 

8 A 

612 

TXA 



A43B 

OA 

613 

ASL 

A 


A43C 

AA 

614 

TAX 



A43D 

ED26A3 

615 

LDA 

TA328-2.X 

;fetch address from error message table 

A4 40 

8522 

616 

STA 

Z22 


A4 42 

BD27A3 

617 

LDA 

TA328-1.X 


A445 

8523 

618 

STA 

Z23 


A447 

20CCFF 

619 

JSR 

XFFCC 

;restore I/O devlces to default 

A44A 

A900 

620 

LDA 

$00 


A44C 

8513 

621 

STA 

Z13 

;set default CMD output file 

A44E 

20D7AA 

622 

JSR 

SAAD7 

;eod line on CMD output file 

A4S1 

2045AB 

623 

JSR 

SAB4S 

;prlnt questlon nark on output file 

A454 

AOOO 

624 

LDY 

$00 


A4 56 

B122 

625 

BA456 LDA 

(Z22),Y 


A458 

48 

626 

PI1A 



A459 

297F 

627 

AND 

$7F 


A45B 

2047AB 

628 

JSR 

SAB47 

Sprint a character on output file 

A45E 

C8 

629 

INY 



A4SF 

68 

630 

FLA 



A460 

10F4 

631 

BFL 

BA456 

;repest if end of message not reached 

A46Z 

207AA6 

632 

JSR 

SA67A 

;reset stack and program pointera 

A465 

A969 

633 

LDA 

<TA369 


A467 

A0A3 

634 

LDY 

5TA369 

;set AY to nesage ERROR 

A4 69 

201EAB 

635 

JA469 JSR 

SAS1E 

;prlnt message from AY 

A46C 

A4 3 A 

636 

LDY 

Z3A 

;lf in direct mode 

A46E 

C8 

637 

lire 



A46F 

F003 

638 

BEQ 

BA474 

;restart BASIC 

A471 

20C2BD 

639 

JSR 

SBDC2 

;else print IN STATEMENT and t 

A474 

A976 

640 

BA474 LDA 

<TA376 

A4 76 

A0A3 

641 

LDY 

5TA376 

;set AY to message READY 

A478 

201EAB 

642 

JSR 

SAB1E 

Sprint READY message 

A47B 

A980 

643 

LDA 

$80 


A47D 

2090FF 

644 

JSR 

XFF90 

;aet kernel msg flag for direct mode 

A480 

6C0203 

645 

BA480 JMF 

(X0302) 

;perform vara start (normally A483) 



646 

J 





647 

; standard 

vara start routine (BASIC Interpreter) 



648 

» 



A4B3 

2060A5 

649 

JSR 

SA560 

;get statement loto thè input buffer 

A486 

867a 

650 

STX 

Z7A 

;move beginning of line address 

A488 

847B 

651 

STY 

Z7B 

;to current character address 

A4 SA 

207300 

652 

JSR- 

X0073 

;get next character of 6tatement 

A48D 

AA 

653 

TAX 



A48E 

FOFO 

654 

BEQ 

BA480 

;skip statement lf end of line 

A4 90 

A2FF 

655 

LDX 

$FF 


A492 

863A 

656 

STX 

Z3A 

;set Run/Direet svltch to Direct 

A4 94 

9006 

657 

BCC 

BA49C 

;if no line nuaber. 

A4 96 

2079A5 

658 

JSR 

SA579 

;encode keyvords in statement 

A499 

4CE1A7 

659 

JMP 

JA7EI 

; e r.d go execute statement 


14 



661 ;numbered stacements 




662 

» 



;gather line number iato Z14/215 

A49C 

206BA9 

663 

BA49C 

JSR 

SA96B 

M9F 

2079A5 

664 


JSR SA579 

jencode keywords in statement 

A4A2 

840B 

665 


STY 

ZOB 

;save iudex^ for end of line 

A4 A4 

2013A6 

666 


JSR SA613 

;search for statement in program 

A4a7 

9044 

667 


BCC 

BA4ED 

;lf not found, insert line 



668 

; 






669 

idelete old statement (indexed froo Z5F/Z60) 



670 

» 




A4A9 

A001 

671 


LDY 

$01 


A4 AB 

B15F 

672 


LDA 

(Z5F),Y 

;move lov of pointer to next statement 

A4 AD 

8523 

673 


SIA 

Z23 


A4AF 

A52D 

674 


LDA 

Z2D 

;move low of ptr beyond last statement 

A4B1 

8522 

675 


STA 

Z22 


A4B3 

A560 

676 


LDA 

Z60 

;nove byte of ptr to current statement 

A4B5 

8525 

677 


STA 

Z25 


A4B7 

A55F 

678 


LDA 

Z5F 

;low byte of ptr to current statement 

A4B9 

88 

679 


DEY 


j-low byte of pointer to next statement 

A4BA 

F15F 

680 


■ SBC 

(Z5F),T 

{“lengtb of gap in 2's complement 

A4BC 

18 

681 


CLC 



A4BD 

652D 

682 


ADC 

Z2D 

;+ low byte ptr beyond last statement 

A4BF 

852D 

683 


STA 

Z2D 

;« nev pointer beyond last statement 

A4C1 

8524 

684 


STA 

Z24 

;also saved 

A4C3 

A52E 

685 


LDA 

Z2E 

;high byte of ptr beyond last statement 

A4C5 

69FF 

686 


ADC 

$FF 

;+ carry 

A4C7 

852E 

687 


STA 

ZZE 

new high of pointer beyond last stmt 

A4C9 

E560 

688 


SBC 

Z60 

;-high of pointer to current stmt 

A4CB 

AA 

689 


TAX 


;-high byte of # of bytes to move 

A4CC 

38 

690 


SEC 



A4 CD 

A55F 

691 


LDA 

Z5F 

;lov byte of ptr to current statement 

A4CF 

E52D 

692 


SBC 

Z2D 

;-low of pointer beyond last statement 

A4D1 

A8 

693 


TAY 


number of bytes to move 

A4D2 

B003 

694 


BCS 

BA4D7 

;if necessary. 

A4D4 

E8 

695 


ita 


jadjust carry 

A4D5 

C625 

696 


DEC 

Z25 

;slso adjust low end pointer 

A4D7 

18 

697 

BA4D7 

CLC 



A4D8 

6522 

698 


ADC 

Z22 


A4DA 

9003 

699 


BCC 

BA4DF 


A4DC 

C623 

700 


DEC 

Z23 


A4DE 

18 

701 


CLC 



A4DF 

B122 

702 

BA4DF LDA 

<Z22),Y 

;get byte from low end 

A4EÌ 

9124 

703 


STA 

(Z24),Y 

;move to new low end 

A4E3 

C8 

704 


IKY 



A4E4 

D0F9 

705 


BNE 

BA4DF 

;repeat uur i 1 page aoved 

A4E6 

E623 

706 


INC 

Z23 

;update page pointers 

A4E8 

£625 

707 


INC 

Z25 


A4 EA 

CA 

708 


DEX 



A4EB 

D0F2 

709 


BNE 

BA4DF 

;repeat untll last block ooved 
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711 

jinsert new line i 


712 

► 

A4ED 2059A6 

713 

BA4ED JSR SA659 

A4F0 2033A5 

714 

JSR SA533 

A4F3 AD0002 

715 

LDA X0200 

A4F6 F088 

716 

BEQ BA480 

A4F8 18 

717 

CLC 

A4F9 A52D 

718 

LDA Z2D 

A4FB 85Sa 

719 

STA Z5A 

A4FD 650B 

720 

ADC Z0B 

A4FF 8558 

721 

STA Z58 

A501 A42E 

722 

LDY Z2E 

A503 84SB 

723 

STI Z5B 

A505 9001 

724 

BCC BA508 

A507 C8 

725 

lire 

A508 8459 

726 

BA508 STY Z59 

A50A 20B8A3 

727 

JSR SA3B8 

A50D A514 

728 

LDA ZIA 

A50F A415 

729 

LDY Z15 

A511 8DFE01 

730 

STA X01FE 

A514 8CFF01 

731 

STY X01FF 

A517 A531 

732 

LDA Z31 

A519 A432 

733 

LDY Z32 

A51B 852D 

734 

STA Z2D 

A51D 842E 

735 

STY Z2E 

A51F A4DB 

736 

LDY Z0B 

A521 88 

737 

DEY 

A522 B9FC0L 

738 

BA522 LDA X0200-4 

A525 915F 

739 

STA (Z5F),Y 

A527 88 

740 

DEY 

A528 10F8 

741 

BFL BA522 

A52A 2059A6 

742 

JSR SA659 

A52D 2033A5 

743 

JSR SA533 

A530 4C80A4 

744 

JMP E A4 80 


location Indicateti by Z5F/Z60 

;rcset program pointers 
jrelink BASIC linea 

;if first byte of new line is a nuli, 
;don't inaert 

;get low byte of pointer to end of line 
;save as end pointer for move 
;add length of line to be ioserted 
;save aa end outpout pointer for move 
;save high bytes aleo 


jmove bytes and check for overflov 
;aove line number 

;to fielde preceeding input buffer 

;use new upper limlt 

;as new end of program 

;get length of line to be inserted 

;move new line 
;lnto gap 

;loop until line moved 
;reset program pointers 
jrelink BASIC linea 
;go back to BASIC 
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746 

;relink BASIC 



747 

* 



A533 

A52B 

748 

SA533 

LDA 

Z2B 

A535 

A42C 

749 


LDY 

Z2C 

A537 

8522 

750 


STA 

222 

A539 

8423 

751 


sn 

Z23 

A53B 

18 

752 


CLC 


A53C 

A001 

753 

BA53C 

LDY 

$01 

A53E 

B122 

754 


LDA 

(222),Y 

A540 

F01D 

755 


EEQ 

BA55F 

A542 

A004 

756 


LDY 

$04 

A544 

C8 

757 

BA544 

ifn 


A545 

B122 

758 


LDA 

(222),Y 

A547 

DOFB 

759 


BNZ 

BA544 

A549 

C6 

760 


un 


A54A 

98 

761 


TYA 


A54B 

6522 

762 


ADC 

222 

A54D 

AA 

763 


TAX 


A54E 

AOOO 

764 


LDY 

$00 

A550 

9122 

765 


STA 

(822),Y 

A552 

A523 

766 


LDA 

Z23 

A554 

6900 

767 


ADC 

$00 

A556 

C8 

768 


INY 


A557 

9122 

769 


STA 

(822),Y 

A559 

8622 

770 


STX 

Z22 

A55B 

8523 

771 


STA 

223 

AS5D 

90DD 

772 


BCC 

BA53C 

A55F 

60 

773 

BA5SF 

RTS 




774 

t 





775 

;get statement into 



776 

» 



A560 

A200 

777 

SA560 

LDX 

$00 

A562 

2012E1 

778 

BA562 

JSR 

XE112 

A565 

C90D 

779 


CUP 

$0D 

A567 

FOOD 

780 


BEQ 

BA576 

AS69 

9D0002 

781 


STA 

X0200.X 

A56C 

E8 

782 


INX 


A56D 

£059 

783 


CPX 

$59 

A56F 

90F1 

784 


BCC 

BA562 

A571 

A217 

785 


LDX 

517 

A573 

4C37A4 

786 


JMP 

JA437 



787 

B 



A576 

4CCAAA 

788 

BA576 

JMP 

JAACA 


;get pointer to beginnlng of BASIC t'ext 
;hold In temporary pointer 


;get byte at current statement + 1 
;lf at 0, end of program reached 
;set start index 
;increment index 

;scan to end of line 


;coapute pointer to next statement 


;set link in beginnlng of statement 


;set new current statement address 


;repeat untll all statements processed 


input buffer 

;star. > with index-0 

;get clean character from CMD file 

;if Return, 

;go end line 

;else etore character in input buffer 

;lf statement not too long 
;repeat 

;else polnt to messge STRINO TOO LONG 
;and prlnt error message 

;go end line 
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A579 6C0403 790 SA579 JMP (X0304) 

791 ; 

792 ;crunch toltene routine 

793 ; 


A57C 

A67A 

794 


LDX 

Z7a 

A57E 

A004 

795 


LDY 

$04 

AS80 

840F 

796 


STY 

Z0F 

A582 

BD0002 

797 

BA582 

LDA 

E0200.E 

A585 

1007 

798 


BPL 

BASSE 

A587 

C9FF 

799 


CUP 

$FF 

A589 

F03E 

800 


BEQ 

BA5C9 

A58B 

E8 

801 


in 


A58C 

D0F4 

802 


BNE 

BA582 

A58E 

C920 

803 

BA58E 

CMP 

$20 

A590 

F037 

804 


BEO 

BA5C9 

A592 

8S08 

80S 


STA 

Z08 

A594 

C922 

806 


CMP 

' m 

A596 

F056 

807 


BEQ 

BA5EE 

A598 

240F 

808 


BIT 

Z0F 

A59A 

702D 

809 


BVS 

BA5C9 

A59C 

C93F 

810 


CMP 

$3F 

A59E 

D004 

811 


BNE 

BASA4 

ASAO 

A999 

812 


LDA 

$95 

A5A2 

D025 

813 


BNE 

BA5C9 

A3 A4 

C930 

814 

BA5A4 

CMP 

'0 

A5A6 

9004 

815 


BCC 

BA5AC 

A5A8 

C93C 

816 


CMP 

$3C 

A5AA 

901D 

817 


BCC 

BA5C9 

A5AC 

8471 

818 

BA5AC 

STY 

Z71 

A5AE 

A000 

819 


LDY 

$00 

A5B0 

840B 

820 


STY 

Z0B 

A5B2 

88 

821 


DEY 


A5B3 

867A 

822 


STX 

Z7A 

A5BS 

CA 

823 


DEX 


A5B6 

C8 

824 

BA5B6 

INY 


A5B7 

E8 

825 


INE 


ASB8 

BD0002 

826 

BA5B8 

LDA 

X0200.X 

A5BB 

38 

827 


SEC 


A5BC 

F99EA0 

828 


SBC 

TAD9E.Y 

A5BF 

F0F5 

829 


BEQ 

BA5B6 

A5C1 

C980 

830 


CMP 

$80 

A5C3 

D030 

831 


BNE 

BA5F5 

A5C5 

050B 

832 


ORA 

Z0B 

A5C7 

A471 

833 

BA5C7 

LDY 

Z71 

A5C9 

E8 

834 

BA5C9 

INE 


A5CA 

C8 

835 


INY 


A5CB 

99FB01 

836 


STA 

X0200-5.Y 

ASCE 

B9FB01 

837 


LDA 

X0200-5 ,Y 

ASDÌ 

F036 

838 


BEQ 

BA609 

A5D3 

38 

839 


SEC 


ASD4 

E93A 

840 


SBC 


A5D6 

F004 

841 


BEQ 

BA5DC 

A5D8 

C949 

842 


CMP 

$49 

A5DA 

DO 02 

843 


BNE 

BA5DE 

ASDC 

850F 

844 

BA5DC 

STA 

ZOF 

ASDE 

38 

845 

BASSE 

SEC 


A5DF 

E955 

846 


SBC 

$55 

ASEI 

D09F 

847 


BNE 

BA582 

ASE3 

8508 

848 


STA 

Z08 

A5E5 

BD0002 

849 

BA5E5 

LDA 

X0200.X 


;crunch tokens (normally A57C) 


;get Input Index 
;set output Index -5 
;set not a DATA statement 
;get next character 

jcheck for PI 

;other codes above $7F are ignored 

; cove blanks 

;save posslble quote 

;aove strlng vhen between quotes 
;move character lf In DATA statement 

;if questiou mark 

; replace by code for PRINT 

tnove lf nuoerlc 


ave output Index 
;lnltlallze table index 
;lnitlallze keyword count 

;save Input Index 

;next character In table 

;next character In line 

;get character team Input buffer 

;lf equal to table character 
;try next 

; lf equal to character vithout bit 7 

; Bave keyword count + 580 
; reatore output Index 
;advsnce Input index 
; advane» output index 
atore character or code 

;lf zero, end of strlng 

;lf colon, set flag to not data 

;lf code for DATA, set flag 


;lf REM 

;aet 00 as terminator 

;get next character tram input buffer 
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A5E8 

FODF 

850 

BEQ 

BA5C9 

;end upon zero 

A5EA 

C508 

851 

CMF 

Z08 


A5EC 

FODB 

852 

BEQ 

BA5C9 

;or terminator {“) 

A5EE 

C8 

853 BA5EE INY 


jadvance output Index 

A5EF 

99FB01 

854 

STA 

X0200-5.Y 

;move character 

A5F2 

E8 

855 

INE 


jadvance Input Index 

A5F3 

DOFO 

856 

BNE 

BA5E5 

;repeat 

A5F5 

A67A 

857 

BA5F5 LDX 

27A 

;at end of keyword from table 

A5F7 

E60B 

858 

INC 

ZOB 

;increment count 

A5F9 

C8 

859 

BA5F9 INY 


;advance table pointer 

A5FA 

B99DA0 

860 

LDA 

TA09E-1 

jbeyond end of last keyword 

A5FD 

10FA 

861 

BPL 

BA5F9 


A5FF 

B99EAO 

862 

LDA 

TA09E.Y 

;if not at end of table 

A602 

D0B4 

863 

BNE 

BA5B8 


A604 

EDO 002 

864 

LDA 

X0200.X 

;restore input character 

A607 

10BE 

865 

BPL 

BA5C7 

;repeat 

A609 

99FD01 

866 

BA609 STA 

X0200-3.Y 

;set end of line 

A60C 

C67B 

867 

DEC 

Z7B 

;set current character pointer 

A60E 

A9FF 

868 

LDA 

$FF 


A610 

85 7A 

869 

STA 

Z7A 

;to beginning of input buffer again 

A612 

60 

870 

ETS 
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872 ;search for a statement in thè program 

873 ; 

874 ;llne number search argument in Z14/Z15 

875 ;exit with 01/0 for found/not found 

876 ;Z5F/260 set to address of statement found, or next hlgher 

877 ; 


A613 

A52B 

878 

SA613 

IDA 

Z2B 

A615 

A62C 

879 


LDX 

Z2C 

A617 

A001 

880 

BA617 

LDY 

$01 

A619 

855F 

881 


SIA 

Z5F 

A61B 

8660 

882 


STX 

Z60 

A61D 

B15F 

883 


IDA 

(ZSFJ.Y 

A61F 

F01F 

884 


B£Q 

BA640 

A621 

CE 

885 


1KY 


A622 

C8 

886 


1NY 


A623 

A515 

887 


LDA 

Z15 

A625 

D15F 

888 


CHP 

(Z5F),T 

A627 

9018 

889 


BCC 

BA641 

A629 

FO03 

890 


BEQ 

BA62E 

A62B 

88 

891 


DEY 


A62C 

DO 09 

892 


BUE 

BA637 

A62E 

ASIA 

893 

BA62E 

LDA 

Z14 

A630 

88 

894 


DEY 


A631 

D15F 

895 


CMP 

(Z5F),Y 

A633 

900C 

896 


BCC 

BA641 

A635 

FOOA 

897 


BEQ 

BA641 

A637 

88 

898 

BA637 

DEY 


A638 

BI5F 

899 


LDA 

(Z5F),Y 

A63A 

AA 

900 


TAX 


A63B 

88 

901 


DEY 


A63C 

B15F 

902 


IDA 

(ZSF).Y 

A63E 

B0D7 

903 


BCS 

BA617 

A640 

18 

904 

BA640 

CLC 


A641 

60 

905 

BA641 

RTS 



;get pointer to beginnlng of BASIC 


;save pointer to current statement 

;get link, address in current statement 
;0«end of program 


;eompare statement numbers 
;return lf search high (not found) 
;slnce high matches, check low 

; continue slnce statement number low 


;compare low order of statement numbers 
;return if high 
;return if equal 

;get pointer to next statement in AY 


jrepeat 
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907 

;“NEW 

command 




908 

j 




A642 

DOFD 

909 

WA642 

BKE 

BA641 

;lf parameters presene, SYNTAX Error 

A644 

A900 

910 


LDA 

$00 


A646 

AB 

911 


TAY 



A647 

912B 

912 


STA 

(Z2B),Y 

; score rero's 

A649 

C8 

913 


INY 



A64A 

912B 

914 


STA 

(Z2B),Y 

;in flrst 2 bytes of BASIC program area 

A64C 

A52B 

915 


LDA 

Z2B 

;pointer to start of BASIC 

A64E 

18 

916 


CLC 



A64F 

6902 

917 


ADC 

$02 

;+ 2 

A651 

852D 

918 


STA 

Z2D 

;beComes pointer to end of BASIC 

A653 

A52C 

919 


LDA 

Z2C 


A655 

6900 

920 


ADC 

$00 


A657 

8S2E 

921 


STA 

Z2E 


A659 

208EA6 

922 

SA659 

JSR 

SA68E 

;re-inltialize current character ptr 

A65C 

A900 

923 


LDA 

$00 

;Z - 1 



924 

» 






925 

;“CLR‘ 

* command 




926 

* 




A65E 

D02D 

927 

WA65E 

BUE 

BA6BD 

;if parameters presene, SYNTAX Error 

A660 

20E7FF 

928 

SA660 JSR 

XFFE7 

;close all channels and files 

A663 

A537 

929 


LDA 

Z37 

;get memory limit in AY 

A665 

A438 

930 


LDY 

Z38 


A667 

8533 

931 


STA 

Z33 

;reset string Storage pointer 

A669 

8434 

932 


STY 

Z34 


A66B 

A52D 

933 


LDA 

Z2D 

;move pointer to variables in AY 

A66D 

A42E 

934 


LDY 

Z2E 


A66F 

852F 

935 


STA 

Z2F 

;into pointer to start of arrapa 

A671 

8430 

936 


STY 

Z30 


A673 

8531 

937 


STA 

Z31 

;also loto pointer to end of arrays 

A675 

8432 

938 


STY 

Z32 


A677 

201DA8 

939 


JSR 

SA81D 

;perfora REST0RE 



940 

J 






941 

;reset snack aad program pointer* 



942 

» 




À67A 

A219 

943 

SA67A 

LDX 

<Z19 


A67C 

8616 

944 


STX 

Z16 

;reset string descrlptor stack index 

A6?E 

68 

945 


PLA 


;get own return address in AY 

A67f 

AS 

946 


TAY 



A6S0 

68 

947 


PLA 



A681 

A2FA 

948 


LDX 

SFA 


A683 

9A 

949 


TXS 


;reset stack pointer 

A684 

48 

950 


PUA 


;put own return address back on stack 

A685 

98 

951 


TYA 



A686 

48 

952 


FHA 



A687 

A900 

953 


LDA 

$00 


A689 

853E 

954 


STA 

Z3E 

;clear pointer for CONTIBue 

A68B 

8510 

955 


STA 

ZIO 

;also subscript flag 

A68D 

60 

956 

BA68D 

RTS 
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958 ;set current character pointer to beginnlng of program -1 




959 

; 



A68E 

18 

960 

SA68E 

CEC 


A68F 

A52B 

961 


EDA 

Z2B 

A691 

69FF 

962 


ADC $FF 

A693 

85 7A 

963 


STA 

Z7A 

A695 

A52C 

964 


LDA 

Z2C 

A697 

69FF 

965 


ADC $FF 

A699 

857B 

966 


STA 

Z7B 

A69B 

60 

967 


RTS 




968 

» 





969 

; “LIST*' cotnmand 



970 

» 



A69C 

9006 

971 

WA69C 

BCC 

BA6A4 

A69E 

F004 

972 


BEQ 

BA6A4 

A6A0 

C9AB 

973 


CMP 

$AB 

A6A2 

D0E9 

974 


BNE 

BA68D 

A6A4 

206BA9 

975 

BA6A4 

JSR 

SA96B 

A6A7 

2013A6 

976 


JSR 

SA613 

A6AA 

207900 

977 


JSR 

X0079 

A6AD 

F00C 

978 


BEQ 

BA6BB 

A6AF 

C9AB 

979 


CMP 

$AB 

A6B1 

D08E 

980 


BNE 

BA641 

A6B3 

207300 

981 


JSR 

X0073 

A6B6 

206BA9 

982 


JSR 

SA96B 

A6B9 

0086 

983 


BNE 

BA641 

A6BB 

68 

984 

BA6BB PLA 


A6BC 

68 

985 


PLA 


A6BD 

A514 

986 


LDA 

Z14 

A6BF 

0515 

987 


ORA 

Z15 

A6C1 

DO06 

988 


BNE 

BA6C9 

A6C3 

A9FF 

989 


LDA 

$FF 

A6C5 

8514 

990 


STA 

Z14 

A6C7 

8515 

991 


STA 

Z15 


;get pointer to beginnlng of BASIC area 

jstore luto current character pointer 
; sanie for high byte 


jparameter must be nuoeric, 

;or else none at all 
;or 

;lf none of above, SYNTAX Error 

jgather decimai number into Z14/Z15 

;search for statement in program 

;get current character 

;if not at end of statement 

!°r 

;then SYNTAX Error 

;get next character after 

jgather decimai number luto Z14/Z1S 

;lf not end of statement, SYNTAX Error 

;remove return addresB from atack 

;if last parameter zero (mlsslng) 


;set lt to 65535 
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993 ;list statement from Z3F/260 thru 214/Z15 

994 ; 


A6C9 

A001 

995 

BA6C9 

LDY 

SOI 

A6CB 

840F 

996 


STY 

Z0F 

A6CD 

B15F 

997 


LDA 

(Z5F),Y 

A6CF 

F043 

998 


BEQ 

BA714 

A6D1 

202CA8 

999 


JSR 

SA82C 

A6D4 

20D7AA 1000 


JSR 

SAAD7 

A6D7 

C8 

1001 


INY 


A6D8 

B15F 

1002 


IDA 

(Z5F),Y 

A6DA 

AA 

1003 


TAX 


A6DB 

C8 

1004 


INY 


A6DC 

B15F 

1005 


LDA 

(Z5F),Y 

A6DE 

C515 

1006 


CMP 

Z15 

A6E0 

0004 

1007 


BNE 

BA6E6 

A6E2 

E414 

1008 


CFX 

ZL4 

A6E4 

F002 

1009 


BEQ 

BA6E8 

A6E6 

B02C 

1010 

BA6E6 

BCS 

BA714 

A6E8 

8449 

1011 

BA6E8 

STY 

Z49 

A6EA 

20CDBD 

1012 


JSR 

SBDCD 

AéED 

A920 

1013 


LDA 

$20 

A6EF 

A4 49 

1014 

BA6EF 

LDY 

Z49 

A6F1 

297F 

1015 


AND 

$7F 

A6F3 

2047AB 

1016 

BA6F3 

JSR 

SAB47 

A6F6 

C922 

1017 


CMP 


A6F8 

0006 

1018 


BNE 

BA700 

A6FA 

A50F 

1019 


LDA 

Z0F 

A6FC 

49FF 

1020 


E0R 

$FF 

A6FE 

850F 

1021 


STA 

Z0F 

A700 

C8 

1022 

BA700 

irre 


A701 

fou 

1023 


BEQ 

BA714 

A703 

B15F 

1024 


LDA 

(Z5F),Y 

A705 

0010 

1025 


BNE 

BA717 

A707 

A8 

1026 


TAY 


A708 

B15F 

1027 


LDA 

(Z5F),Y 

A70A 

AA 

1028 


TAX 


A70B 

C8 

1029 


INY 


A70C 

B15F 

1030 


LDA 

(Z5F),Y 

A70E 

865F 

1031 


STX 

Z5F 

A710 

8560 

1032 


STA 

Z60 

A712 

D0B5 

1033 


BNE 

BA6C9 

A714 

4C86E3 

1034 

BA714 

JMP 

XE386 


;set string sviteli to not a string 

;get high byte of link address for line 
;0«end of program» go restart BASIC 
; check, for Stop Key 
;end line on CMD output file 


; set AX to statement # 


^compare to end of llst statement 


;if higher, stop 

;save index in statement 

;print statement t fro® AX 

;insert a blank 

;restore index in statement 

;clear bit 7 

;print character from A on CMD file 
;if a quote character 


;flip string sviteli 
;advanee index 

;if line too long» restart BASIC 

;if not end of line, go prlnt it 
;if end of line, 

;get pointer to next statement in AX 


;and reset line address 

;then loop back for next line 
;go restart BASIC 
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A717 

6C0603 

1036 

BA717 JMP 

(X0306) 



1037 

* 




1038 

;print tokens 



1039 

» 


A7XA 

10D7 

1040 

BFL 

BA6F3 

A71C 

C9FF 

1041 

CMP 

$FF 

A71E 

F0D3 

1042 

BEQ 

BA6F3 

A720 

240F 

1043 

BIT 

ZOF 

A722 

30CF 

1044 

BH1 

BA6F3 

A724 

38 

1045 

SEC 


A725 

E97F 

1046 

SBC 

$7F 

A727 

AA 

1047 

TAX 


A728 

8449 

1048 

STY 

Z49 

A72A 

AOFF 

1049 

un 

$FF 

A72C 

CA 

1050 

BA72C DEX 


A72D 

F008 

1051 

BEQ 

BA737 

A72F 

C8 

1052 

BA72F INI 


A730 

B99EA0 

1053 

LDA 

TA09E.Y 

A733 

10FA 

1054 

BFL 

BA72F 

A735 

30F5 

1055 

Bill 

BA72C 



1056 

> 




1057 

;print keyword 



1058 

» 


A737 

C8 

1059 

BA737 INY 


A738 

B99EA0 

1060 

LDA 

TA09E.Y 

A73B 

30B2 

1061 

BMI 

BA6EF 

A73D 

204 7AB 

1062 

JSR 

SAB47 

A740 

D0F5 

1063 

BNE 

BA737 


;go print tokens (normaily A71A) 


;if bit 7 clear, print one character 
;if code for PI, 

;print PI 

;if in string mode 
;also print shifted codes 

jcompute keyword 9 

; save index In statement 

;if keyword found 
;go print keyword 

;else get character from keyword table 
;until bit 7 set (end of keyword) 


;get next character fron keyword table 
;if bit 7 set go print last character 
;print character on CMD file 
;and repeat 
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1065 ;"FOR" command 

1066 ; 


A742 

A980 

1067 

UA742 

LDA 

$80 

A744 

8510 

1068 


STA 

ZIO 

A746 

20A5A9 

1069 


JSR 

SA9A5 

A749 

208AA3 

1070 


JSR 

SA38A 

A74C 

D005 

1071 


BNE 

BA753 

A74E 

8A 

1072 


TXA 


A74F 

690F 

1073 


ABC 

$0F 

A751 

AA 

1074 


TAX 


A752 

9A 

1075 


TXS 


A753 

68 

1076 

BA753 

PLA 


A7S4 

68 

1077 


PLA 


A755 

A909 

1078 


LDA 

$09 

A7 57 

20FBA3 

1079 


JSR 

SA3FE 

A75A 

2006A9 

1080 


JSR 

SA906 

A75D 

18 

1081 


CLC 


A75E 

98 

1082 


TYA 


A75F 

657A 

1083 


ABC 

Z7A 

A761 

48 

1084 


PHA 


A762 

A57B 

1085 


•LDA 

Z7B 

A764 

6900 

1086 


ADC 

$00 

A766 

48 

1087 


PHA 


A767 

A53A 

1088 


LDA 

Z3A 

A769 

48 

1089 


PHA 


A76A 

A539 

1090 


LDA 

Z39 

A76C 

48 

1091 


PHA 


A76D 

A9A4 

1092 


LDA 

$A4 

A76F 

20FFAE 

1093 


JSR 

SAEFF 

A772 

208DAD 

1094 


JSR 

SAD8D 

A775 

208AAD 

1095 


JSR 

SADSA 

A778 

A566 

1096 


LDA 

Z66 

A77A 

097F 

1097 


ORA 

$7F 

A77C 

2562 

1098 


AND 

Z62 

A77E 

8562 

1099 


STA 

Z62 

A780 

A98B 

1100 


LDA 

<WA78B 

A782 

A0A7 

noi 


LDY 

>WA78B 

A784 

8522 

1102 


STA 

Z22 

A786 

8423 

1103 


STY 

Z23 

A788 

4C43AE 

1104 


JMP 

JAE43 



1105 

i 



A78B 

A93C 

1106 

WA78B 

LDA 

<TB9BC 

A78D 

A0B9 

1107 


LDY 

>TB9BC 

A78F 

20A2BB 

1108 


JSR 

SBBA2 

A792 

207900 

1109 


JSR 

X0079 

A795 

C9A9 

ino 


CMP 

$A9 

A797 

0006 

1111 


BNE 

BA79F 

A799 

207300 

1112 


JSR 

X0073 

A79C 

208AAD 

1113 


JSR 

SADSA 

A79F 

202BBC 

1114 

BA79F JSR 

SBC2B 

A7A2 

2038AE 

1115 


JSR 

SAE38 

A7A5 

A54A 

1116 


LDA 

Z4A 

A7A7 

48 

1117 


PHA 


A7A8 

A549 

1118 


LDA 

Z49 

A7AA 

48 

1119 


PHA 


A7AB 

A981 

1120 


LDA 

$81 

A7AD 

48 

1121 


PHA 



;set flag for 

;no integer variables or array elenents 

;execute comand LET 

;get FOR block of variable used 

;if found, 

;drop stack per below that FOR block 


;remove return aiddress from stack 

;9 addresses on stack needed 
;elae OUI OF MEMORY Error 
;get offset to end of statement 

•eompute pointer to end of statement 


;save on stack 


; save current statement il on stack 

;if not TO, then SYNTAX Error 
;inltial value must be non-strlng 
;get next non-string value (TO value) 
;oove sign of flp accu 


;lnto most significant bit 


;set return address for continuatlon 
;round and save flp accu (TO value) 


;get next character 

;get next non-string value 

;get SGN of flp accu 

; round flp accu and save on stack 

;save pointer to FOR variable 


;save code for FOR block 


;set AY to default step (1) 

;load default step 
;get next character 
;if STEP 
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1123 

;execute next statement 


1124 

i 


A7AE 202CA8 

1125 

JA7AE JSR SA82C 

; check Stop Key 

A7B1 A57a 

1126 

LDA Z7A 


A7B3 A47b 

1127 

LDY Z7B 

;get ptr to end of old statement in AY 

A7B5 C002 

1128 

CPY $02 


A7B7 EA 

1129 

BOP 


A7B8 F004 

1130 

BEQ BA7BE 

;if not direct mode. 

A7BA 853D 

1131 

STA Z3D 

jstore pointer for posslble CONI 

A7BC 843E 

1132 

STY Z3E 


A7BE AOOO 

1133 

BA7BE LDY $00 


A7CO B17A 

1134 

LDA (Z7A),V 

;gec last byte 

A7C2 D043 

1135 

BtiE BA807 

;if not 0, check for 

A7C4 A002 

1136 

LDY 502 


A7C6 B17A 

1137 

LDA (Z7a),Y 

;get high of pointer to next statement 

A7C8 18 

1138 

CLC 


A7C9 D003 

1139 

Biffi BA7CE 


A7CB 4C4BA8 

1140 

JKP JA84B 

;0-end of program 


1141 

» 


A7CE C8 

1142 

BA7CE 1NT 


A7CF B17A 

1143 

LDA {Z7A),Y 

;move statement # into Z39/Z3A 

A7D1 8539 

1144 

STA Z39 


A7d3 ce 

1145 

INY 


A7D4 B17A 

1146 

LDA (Z7A),T 


A7D6 853A 

1147 

STA Z3A 


A7D8 98 

1148 

TEA 

;advanee pointer over statement header 

A7D9 657A 

1149 

ADC Z7A 


A7DB 857A 

1150 

STA Z7A 


A7DD 9002 

1151 

BCC JA7E1 


A7DF E67B 

1152 

INC Z7B 


A7E1 6C0803 

1153 

JA7E1 JMP (X0308) 

;go execute a statement (norsally A7E4) 


1154 

! 



1155 

;execute e statement 


1156 

j 


A7E4 207300 

1157 

JSR X0073 

;get next character 

A7E7 20EDA7 

1158 

JSR SA7ED 

jexecute command in A 

A7EA 4CAEA7 

1159 

JMP JA7AE 

;go execute next statement 
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1161 

;execute command In 

A 



1162 

» 



A7ED 

F03C 

1163 

SA7ED beq 

BA82B 

;lf 2 ■ 1, return (dummy statement) 

A7EF 

E980 

1164 

JA7EF SBC 

$80 

;if A < $80 

A7F1 

9011 

1165 

BCC 

BA804 

;perfora LET 

A7F3 

C923 

1166 

CMP 

$23 

;lf A - > A3 (hlghest coomand) 

A7F5 

B017 

1167 

BCS 

BA80E 

Jthen check for GOTO 

A7F7 

0A 

1168 

ASL 

A 

;get 2 * (A - 80) as Index to cable 

A7F8 

A8 

1169 

TAY 



A7F9 

B90DAO 

1170 

LDA 

TAOOCH-1 ,Y 

;move routine addrese onto ntsck 

A7FC 

48 

1171 

PHA 



A7FD 

B90CA0 

1172 

EDA 

TAOOC.Y 


A800 

48 

1173 

PHA 



A801 

4C7300 

1174 

JHP 

X0073 

;get flrst char of paraaetere and go 



1175 

» 



A804 

4CA5A9 

1176 BA804 JMP 

SA9A5 

;execute command LET 



1177 

9 



A807 

C93A 

1178 

BA807 CMP 

'. 

;if character la a colon. 

A809 

F0D6 

1179 

BEQ 

JA7E1 

;execute next command 

A80B 

4C08AF 

1180 

BA80B JMP 

JAF08 

;else prlot SYHTAX Error 



1181 

9 



A80E 

C94B 

1182 

BA80E CMP 

$4B 

;lf not code for GO 

A810 

D0F9 

1183 

BNE 

BA80B 

;then SYNTAX Error 

A812 

207300 

1184 

JSR 

X0073 

jelse get next character 

A815 

A9A4 

1185 

LDA 

$A4 

;set code for TO 

A817 

20FFAE 

1186 

JSR 

SAEFF 

;if equal 

ASIA 

4CAOA8 

1187 

JMP 

JASAO 

;go do connand GOTO 
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1189 ;“RESTORE" command 




1190 ; 


A81D 


1191 WA81D 

• * 

A81D 

38 

1192 SA81D 

SEC 

A81E 

A52B 

1193 

LDA Z2B 

AB20 

E901 

1194 

SBC $01 

A822 

A42C 

1195 

LDY Z2C 

A824 

B001 

1196 

BCS BA827 

A826 

88 

1197 

DEY 

A827 

8541 

1198 BA827 

STA Z41 

A829 

8442 

1199 

STY Z42 

A82B 

60 

1200 BA82B 

RTS 



1201 ; 


A82C 

20E1FF 

1202 SA82C 

JSR XFFE1 



1203 ; 




1204 ;"ST0P'' command 



1205 ; 


A82F 

B001 

1206 WA82F 

BCS BA832 



1207 ; 




1208 ;“END” command 



1209 ; 


A831 

18 

1210 WA831 

CLC 

A632 

D03C 

1211 BA832 

BNE BA870 

A834 

A57A 

1212 

LDA Z7A 

A836 

A47B 

1213 

LDY Z7B 

A838 

A63A 

1214 

LDX Z3A 

A83A 

E8 

1215 

INX 

A83B 

F00C 

1216 

BEQ BA849 

A83D 853D 

1217 

STA Z3D 

A83F 843E 

1218 

STY Z3E 

A841 

A539 

1219 

LDA Z39 

A843 A4 3A 

1220 

LDY Z3A 

A84S 

85 3B 

1221 

STA Z3B 

A847 

84 3C 

1222 

STY Z3C 

A849 

68 

1223 BA849 

FLA 

A84A 68 

1224 

FLA 

A84S ASSI 

1225 JA84B LDA <TA381 

A84D A0A3 

1226 

LDY >TA38l 

A84F 9003 

1227 

BCC BA854 

A851 

4C69A4 

1228 

JMP JA469 

A854 

4C86E3 

1229 BA854 JMP XE386 


;get pointer to beginning of BASIC 
;into AY 


; sture AY in current DATA address 


;test Stop Key 


;preserue C flag 


;clear C flag 

;if pararneters present, SYNTAX Error 
;set AY to address of current line 


;if not in direct mode, 

;save pointer for poaalble CONT 

;AY“Current statement # 

;move current statement f 
ito previous statement t 
;remove own return address 

;set AY tò BREAK message 

;1f STOP command, 

;print aessage and restart BASIC 
;else restart BASIC 
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1231 

;"C0NT" command 



1232 

1 

A857 

D017 

1233 

WA857 BNE BA870 

A859 

A21A 

1234 

LDX $1A 

A85B 

A43E 

1235 

LDY Z3E 

A85D 

D003 

1236 

BNE BA862 

A85F 

4C37A4 

1237 

JMP JA437 



1238 

» 

A862 

A53D 

1239 

BA862 LDA 230 

A864 

857A 

1240 

STA Z7A 

A866 

847B 

1241 

STY Z7B 

A868 

A53B 

1242 

LDA Z3B 

A86A 

A43C 

1243 

LDY Z3C 

A86C 

8539 

1244 

STA Z39 

A66E 

84 3A 

1245 

STY Z3A 

A870 

60 

1246 

BA870 RTS 



1247 




1248 

; "‘RUN" command 



1249 

t 

A871 

08 

1250 

VA871 PHP 

A872 

A900 

1251 

LDA $00 

A874 

2090FF 

1252 

JSR XFF90 

A877 

28 

1253 

PLP 

A878 

D003 

1254 

BNE BA87D 

A87A 

4C59A6 

1255 

JMP SA659 



1256 

» 

A87D 

2060A6 

1257 

BA87D JSR SA660 

A880 

4C97A8 

1258 

JMP JAS97 



1259 

» 



1260 

;”G0SDB" command 



1261 

9 

A883 

A903 

1262 

VABB3 LDA $03 

A885 

20FBA3 

1263 

JSR SA3FB 

A888 

A57B 

1264 

LDA Z7B 

A88A 

48 

1265 

PHA 

A88B 

A57A 

1266 

LDA Z7A 

A88D 

46 

1267 

PHA 

A88E 

A53A 

1268 

LDA Z3A 

A890 

48 

1269 

PHA 

A891 

A539 

1270 

LDA Z39 

A893 

48 

1271 

PHA 

A894 

A98D 

1272 

LDA $8D 

A896 

48 

1273 

PHA 

A897 

207900 

1274 

JA897 JSR X0079 

A89A 

20A0A8 

1275 

JSR JA8A0 

A89D 

4CAEA7 

1276 

JMP JA7AE 


;if parameters presene, SYNTAX Error 
;point co message CAN'T CONTINUE 
;get pointer to current statement in Al 
;if pointer*Q, 

; fatai error 

;wove saved character pointer 
•luto current character pointer 

;move previous statement t 

; luto current statement # 


;set Vernai messages flag ro RUN mode 

;if no parameters, 

;do CLR and start program 

;else do CLR and then 
;do GOTO 


;need 3 address on stack 
; else error OUT OF MEMORY 

;ssve pointer to current character 
;on thè stack 


;save current statement i on stack 

;save code for COSCE 
;get current character 
;execute command GOTO 
;erecute next statement 
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1278 

;"GOTO" co cima nd 



1279 

> 

A8A0 


1230 

WA8A0 - * 

A8A0 

206BA9 

1281 

JA8A0 JSR SA96B 

A8A3 

2009A9 

1282 

JSR SA909 

A8A6 

38 

1283 

SEC 

A8A7 

A539 

1284 

LDA Z39 

ABA9 

E514 

1285 

SBC Zi4 

A8AB 

A53A 

1286 

LDA Z3A 

A8AD 

E515 

1287 

SBC Z15 

ASAF 

BOOB 

1288 

BCS BA8BC 

A8B1 

98 

1289 

TYA 

A8B2 

38 

1290 

SEC 

A8B3 

657A 

1291 

ADC Z7A 

A8B5 

A67B 

1292 

LDX Z7B 

A8B7 

9007 

1293 

BCC BASCO 

A8B9 

E8 

1294 

INX 

A8BA B004 

1295 

BCS BA8C0 

A8BC 

A52B 

1296 

BABBO LDA Z2B 

A8BE A62C 

1297 

LDX Z2C 

A8C0 

2017A6 

1298 

BASCO JSR BA617 

A8C3 

901E 

1299 

BCC BA8E3 

A8C5 

A55F 

1300 

LDA Z5F 

ASC 7 

E901 

1301 

SBC $01 

A8C9 

857 A 

1302 

STA Z7À 

A8CB A560 

1303 

LDA Z60 

A8CD 

E900 

1304 

SBC $00 

A8CF 857B 

1305 

STA Z7B 

A8D1 

60 

1306 

BA8D1 RTS 



1307 

» 



1308 

;"RETURN" coomand 



1309 

» 

ASD2 

D0FD 

1310 WA8D2 BNE BA8D1 

A8D4 

A9FF 

1311 

LDA $FF 

A8D6 

854A 

1312 

STA Z4A 

A8D8 

208AA3 

1313 

JSR SA38A 

A8DB 

9A 

1314 

TXS 

A8DC 

C98D 

1315 

CMP $8D 

ABDE 

F00B 

1316 

BEQ BA8EB 

ABEO 

A20C 

1317 

LDX $0C 

A8E2 

2C 

1318 

.BY $2C 

A8E3 

A211 

1319 

BA8E3 LDX $11 

A8E5 

4C37A4 

1320 

JMP JA437 



1321 

» 

A8E8 

4C08AF 

1322 

BA8E8 JMP JAF08 



1323 

} 

A8EB 

68 

1324 

BA8EB PLA 

A8EC 

68 

1325 

PLA 

AB ED 

8539 

1326 

STA Z39 

A8EF 

68 

1327 

PLA 

A8F0 

853A 

1328 

STA Z3A 

A8F2 

68 

1329 

PLA 

A8F3 

857A 

1330 

STA Z7A 

ABF5 

68 

1331 

PLA 

A8F6 

857B 

1332 

STA Z7B 


;gather decimai number into ZL4/Z15 
;get offset to end of line In Y 

;fetch current statement number 


;lf forvard jump, 

;let current character pointer 
;polnt to next statement 


;also start seaich there 


;elee start at beginning of Basic 

jsearch for statement startlng at AX 
;lf not found, UNDEF'D STATEMENT 
;move pointer to statement found 

;lnto current character pointer 


;if parameters present, SYNTAX Error 


;get FOR block 

;remove everythiag above current block 
;and thè block found must be a GOSUB 

;else polnt to RETURN WITHOOT GOSUB 
;sltlp sext instruction 
;polnt to UNDEF'D STATEMENT message 
;go prlnt error message 

;prlnt SYNTAX Error message 

;remove GOSUB block from stack 

; remove statement number 


;restore current character pointer 
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1334 

;"DATA" comoand 




1335 

» 




A8F8 


1336 

WA8F8 

- 

e 


A8F8 

2006A9 

1337 

JA8F8 

JSR 

SA906 

;get offset to oext "s” 

A8FB 

98 

1338 

BA6FB 

TYA 



A8FC 

18 

1339 


CLC 



A8FD 

6 57A 

1340 


ADC 

27a 

;add offset to current character pointer 

A8FF 

857a 

1341 


STA 

Z7A 

;(skips statement) 

A901 

9002 

1342 


BCC 

BA905 


A903 

E67B 

1343 


INC 

27B 


A905 

60 

1344 

BA905 

RTS 





1345 

; 






1346 

;get end of statement (“:" SA906) 



1347 

;get end of line (00, SA909) 



1348 

» 




A906 

A23A 

1349 

SA906 

LDX 

-. 

;set statement separator 

A908 

2C 

1350 


• BY 

S2C 

;skip next instruetion 

A909 

A200 

1351 

SA909 

LDX 

$00 

;set line separator 

A908 

8607 

1352 


STX 

Z07 

;save separator character 

A90D 

A000 

1353 


LDY 

$00 


A90F 

8408 

1354 


STY 

Z08 

;save alternate separator 

A911 

A508 

1355 

BA911 

-LDA 

Z08 


A913 

A607 

1356 


LDX 

207 


A915 

8507 

1357 


STA 

Z07 

;swap separatore 

A917 

8608 

1358 


STX 

Z08 


A919 

B17A 

1359 

BA919 

LDA 

(Z7a),Y 

;get next character 

A91B 

FOES 

1360 


BEQ 

BA905 

;if end of line 

A91D 

C508 

1361 


CMF 

208 

;or separator reached 

A91F 

F0E4 

1362 


BEQ 

BASO 5 

;exit with Y-length scanned 

A921 

C8 

1363 


INY 


;else advance pointer 

A922 

C922 

1364 


CKP 

* “ 

;if character » quote 

A924 

D0F3 

1365 


BUE 

BASI 9 

;swap separators and continue 

A926 

F0E9 

1366 


BEQ 

BASI 1 

; cont inue 



1367 

> 






1368 

;"IF" 

command 




1369 

» 




A928 

209EAD 

1370 

HA928 

JSR 

SAD9E 

;evaluate ezpression 

A92B 

207900 

1371 


JSR 

X0079 

iget current character 

A92E 

C989 

1372 


CMF 

$89 

;if not code for GOTO 

A930 

F005 

1373 


BEQ 

BA937 


A932 

A9A7 

1374 


LDA 

$A7 

;or code for THEN 

A934 

20FFAE 

1375 


JSR 

SAEFF 

;then SYNTAX Error 

A937 

A561 

1376 

BA937 

LDA 

Z61 

;if resolt of condition true, do action 

A939 

D005 

1377 


BNE 

BA940 

;else skip by dropping tbrough to REM 
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1379 

;"REM" 

command 



1380 

1 



A93B 

2009A9 

1381 

WA93B 

JSR 

SA909 

A93E 

FOBB 

1382 


BEQ BA8FB 



1383 

; 





1384 

;THEN 

part 

: of IF 



1385 

» 



A940 

207900 

1386 

BA940 

JSR X0079 

A943 

B003 

1387 


BCS 

BA948 

A945 

4CA0A8 

1388 


JMP 

JASA0 

A948 

4CEDA7 

1389 

BA948 

JMP 

SA7ED 



1390 

» 





1391 

;"0N“ 

comoand 



1392 

• 



A94B 

209EB7 

1393 

WA94B 

JSR 

SB79E 

A94E 

48 

1394 


PHA 


A94F 

C98D 

1395 


CMP 

$8D 

A951 

F004 

1396 


BEQ 

BA957 

A953 

C989 

1397 

BA953 

CMP 

$89 

A955 

D091 

1398 


BUE 

BA8E8 

A957 

C663 

1399 

BA957 

DEC 

Z65 

A9S9 

DO 04 

1400 


BUE 

BA95F 

A95B 

68 

1401 


PLA 


A95C 

4CEFA7 

1402 


JMP 

JA7EF 

A95F 

207300 

1403 

BA95F 

JSR 

X0073 

A962 

206BA9 

1404 


JSR 

SA96B 

A965 

C92C 

1405 


CMP 

• 

A967 

F0EE 

1406 


BEQ 

BA957 

A969 

68 

1407 


PLA 


A96A 

60 

1408 

BA96A 

RTS 



;get offset to end of line 

jgo advance current character pointer 


;get current character 
;if numeric 

;then execute command GOTO 
;else execute command in A 


;get oext integer vaine luto X 
;save current character 
;if not GOSUB 

;or GOTO 

;then SYNTAX Error 
jdecrement Index 
;If zero 

;restore GOTO or GOSUB code io A 

;and execute command in A 

;else get next character 

jgather decimai number inco ZI4/Z15 

;lf ends vith a comma 

;then repeat 

;elee must he end of 6tatement 
;othervise force SYNTAX Error 
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1410 

;gather decimai 

nuaher into Z14/Z15 



1411 

» 




1412 

jgathered from current statement 



1413 

;expects A, C and Z to reflect current character 



1414 

jreturns with A, 

, C and Z reflecting new 



1415 

;current character (First character alter mmber) 



1416 

» 


A96B 

A200 

1417 

SA96B LDX $00 

; set ansver area to zero 

A96D 

8614 

1418 

STX Z14 


A96F 

8615 

1419 

STX Z15 


A971 

B0F7 

1420 

JA971 BCS BA96A 

;stop at first non-decimal character 

A973 

E92F 

1421 

SBC $2F 

;convert decimai to binary 

A975 

8507 

1422 

STA Z07 

;sawe it 

A977 

A515 

1423 

U)A Z15 


A979 

8522 

1424 

STA Z22 

;save old high order 

A97B 

C919 

1425 

CMF $19 

;lf # gathered so far >- 6400 

A97D 

B0D4 

1426 

BCS BA953 

;then SYNTAX Error 

A97F 

A514 

1427 

LDA Z14 


A981 

OA 

1426 

ASL A 

;* 2 

A982 

2622 

1429 

ROL Z22 


A984 

OA 

1430 

• ASL A 

;* 4 

A985 

2622 

1431 

ROL Z22 


A987 

6514 

1432 

ADC Z14 

;+ originai “ * 5 

A989 

8514 

1433 

STA Z14 


A98B 

A522 

1434 

LDA Z22 


A98D 

6515 

1435 

ADC Z15 


A98F 

8515 

1436 

STA Z15 


A991 

0614 

1437 

ASL Z14 

;* 2 - * IO 

A993 

2615 

1438 

ROL Z15 


A995 

A514 

1439 

LDA Z14 


A997 

6507 

1440 

ADC Z07 

;add new digit 

A999 

8514 

1441 

SIA Z14 


A99B 

9002 

1442 

BCC BA99F 


A99D 

E615 

1443 

INC Z15 


A99F 

207300 

1444 

BA99F JSR X0073 

;get next character 

A9A2 

4C71A9 

1445 

JMP JA971 

;and repeat 
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1447 

;"LET* 

comn and 



1448 

ì 


A9A5 


1449 

HA9A5 

• * 

A9A5 

208BB0 

1450 

SA9A5 

JSR SB08B 

A9A8 

8549 

1451 


STA Z49 

A9AA 

844A 

1452 


STY Z4A 

A9AC 

A9B2 

1453 


LDA $£2 

A9AE 

20FFAE 

1454 


JSR SAEFF 

A9B1 

A50E 

1455 


LDA ZOE 

A9B3 

48 

1456 


FHA 

A9B4 

A50D 

1457 


LDA Z0D 

A9B6 

48 

1458 


PHA 

A9B7 

209EAD 

1459 


JSR SAD9E 

A9BA 

68 

1460 


PLA 

A9BB 

ZA 

1461 


ROL A 

A9BC 

2090AD 

1462 


JSR SAD90 

A9BF 

D018 

1463 


BKE BA9D9 

A9C1 

68 

1464 


PLA 

A9C2 

1012 

1465 

SA9C2 

BPL BA9D6 



1466 

; 




1467 

;asslgn to lnteger 



1468 

! 


A9C4 

201BBC 

1469 


JSR SBC1B 

A9C7 

20BFB1 

1470 


JSR SB1BF 

A9CA 

A000 

1471 


LDY $00 

A9CC 

A564 

1472 


LDA Z64 

ASCE 

9149 

1473 


STA (Z49),Y 

A9D0 

C8 

1474 


1NY 

A9D1 

A565 

1475 


LDA Z65 

A9D3 

9149 

1476 


STA (Z49),Y 

A9D5 

60 

1477 


RTS 



1478 

> 




1479 

;aa$lgn to flp 



1480 

; 


A9D6 

4CD0BB 

1481 

BA9D6 

JKP JBBD0 



1482 

! 




1483 

;ssslgn to atrlng 



1484 

• 


A9D9 

68 

1485 

BA9D9 

PLA 

A9DA 

A44A 

1486 

SA9DA LBY Z4A 

A9DC 

COBF 

1487 


CPY $BF 

A9DE 

D04C 

1488 


BUE BAA2C 


jgather name and get ptr to varlable 
; aave varlable pointer 

;load code for 

;mugt be next character 

;save lnteger flag of varlable 

;aave atrlng flag of varlable 
;evaluate expreaelon 
;restore atrlng flag of varlable 
;also lnto C flag 
;check value for sane type 
;brancb lf atrlng to be asslgned 
;restore lnteger flag of varlable 
;branch lf flp accu to be etored 


;round flp accu according to guatd bit 
;convert flp accu to lnteger 

;get most slgnificant byte of lnteger 
;store lnto + 0 of varlable 

;get least slgnificant byte of lnteger 
;store lnto + 1 of varlable 


;go store flp value 


;remove lnteger flag froa stack 
;lf high byte of pointer to varlable 
;not carne as addresa of dusmy varlable 
;then go do norsal varlable 
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1490 ;asslgn to TI$ 

1491 ; 


A9E0 

20A&B6 

1492 

JSR 

SB6A6 

A9E3 

C906 

1493 

CMP 

$06 

A9E5 

D03D 

1494 

BNE 

BAA24 

A9E7 

AOOO 

1495 

LDY 

$00 

A9E9 

8461 

1496 

STY 

Z61 

A9EB 

B466 

1497 

STY 

Z66 

A9ED 

8471 

1498 BA9ED STY 

Z71 

A9EF 

201DAA 

1499 

JSR 

SAA1D 

A9F2 

20E2BA 

1500 

JSR 

SBAE2 

A9F5 

E671 

1501 

INC 

Z71 

A9F7 

A471 

1502 

LDY 

Z71 

A9F9 

201DAA 

1503 

JSR 

SAA1D 

A9FC 

200CBC 

1504 

JSR 

SBCOC 

A9FF 

AA 

1505 

TAX 


AAOO 

F005 

1506 

BEQ 

BAA07 

AA02 

E8 

1507 

INX 


AA03 

sa 

1508 

TXA 


AA04 

20EDBA 

1509 

JSR 

SBAED 

AA07 

A471 

1510 BAA07. LDY 

Z71 

AA09 

C8 

1511 

INY 


AAOA 

C006 

1512 

CPY 

$06 

AAOC 

OODF 

1513 

BNE 

BA9ED 

AAOE 

20E2BA 

1514 

JSR 

SBAE2 

AA11 

209BBC 

1515 

JSR 

SBC9B 

AA14 

A664 

1516 

LDX 

Z64 

AAlfc 

A463 

1517 

LDY 

Z63 

AA18 

A565 

1518 

LDA 

Z65 

AA1A 

4CDBFF 

1519 

JMP 

XFFDB 



1520 ; 





1521 ;add next 

digit to 



1522 ; 



AA1D 

B122 

1523 SAA1D 

LDA 

(Z22),Y 

AA1F 

208000 

1524 

JSR 

X0080 

AA22 

9003 

1525 

BCC 

BAA27 

AA24 

4C48B2 

1526 BAA24 

JMP 

JB248 



1527 ; 



AA27 

E92F 

1528 BAA27 

SBC 

$2F 

AA29 

4C7EBD 

1529 

JMP 

JBD7E 


;de-alloeate temporary string 
;should be 6 characters long 
;else ILLEGAL QUANTITY Error 

;store 0 In flp accu 

;set index in string 
;add next digit to flp accu 
;«ultiply flp accu by 10 
;increment index 

;add next digit to flp accu 
; move rounded flp accu to 2nd flp accu 
;get exponent 

;lf zero, ekip next multlplication 

;inerement exponent 

;*2 in second flp accu 

;add 2nd flp accu co flp accu and *2 

;get index 

;repeat untll 6 characters processed 

;multiply flp accu by 10 
;convert flp accu to 4 byte integer 


;convert decimai to binary 

;add slgned integer from A to flp accu 


;set reai else clock 
flp accu 

;get character froa string 
;check for numeric character 

;ILLEGAL QUANTITY Error if not 
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1531 

1532 

;asslgn to noraal 

» 

strlng variable 

AA2C A002 

1533 

BAA2C LDY $02 


AA2E B164 

1534 

LDA (Z64) ,Y 

;lf pointer to string 

AA30 C534 

1535 

CMP Z34 


AA32 9017 

1536 

BCC BAA4B 

;belov allocateci strlog area 

AA34 D007 

1537 

BNE BAA3D 


AA36 88 

1538 

DEY 


AA37 B164 

1539 

LDA (Z64) ,Y 


AA39 C533 

1540 

Off Z33 


AA3B 900E 

1541 

BCC BAA4B 

;then move deaeriptor 

AA3D A465 

1542 

BAA3D LDY Z65 


AA3F C42E 

1543 

CPY Z2E 


AA41 9008 

1544 

BCC BAA4B 

;below end of program 

AA43 DOOD 

1545 

BNE BAA52 

;(descriptor staci) 

AA45 A564 

1546 

LDA Z64 


AA47 CS2D 

1547 

Off Z2D 


AA49 8007 

1548 

BCS BAA52 


AA4B A564 

1549 

BAA4B LDA Z64 

;then go move descriptor 

ÀA4D A465 

1550 

LDY Z65 


AA4F 4C68AA 1551 
1552 

JMP JÀA68 

t 


AA52 AOOO 

1553 

BAA52 LDY $00 

;else 

AA54 B164 

1554 

LDA (Z64),Y 

;get length of strlng 

AA56 2075B4 

1555 

JSR SB475 

;allocate area 

AA59 A550 

1556 

LDA Z50 

;atore strlng pointer 

AA5B A451 

1557 

LDY Z51 


AASD 856F 

1558 

STA Z6F 


AA5F 8470 

1559 

STY Z70 


AA61 207AB6 

1560 

JSR SB67A 

;move strlng loto allocated area 

AA64 A961 

1561 

LDA <Z61 

;set AY to nev descriptor 

AAÓ6 AOOO 

1562 

1563 

LDY >Z6l 

i 



1564 

1565 

;taovc descript or iato vari ab le 

> 

AA68 8550 

1566 JAA68 STA Z50 

;aet pointer to descriptor from , 

AA6A 8451 

1567 

STY Z51 


AA6C 20DBB6 

1568 

JSR SB6DB 

;check descriptor stack 

AA6? AOOO 

1569 

LDY $00 


AA71 B150 

1570 

LDA <Z50),Y 

;move descriptor 

AA73 9149 

1571 

STA (Z49),Y 

;to varlable 

AA75 C8 

1572 

IHY 


AA76 B150 

1573 

LDA (Z50),Y 


AA78 9149 

1574 

STA (Z49),Y 

; al so + 1 

AA7A C8 

1575 

IKY 


AA7B B150 

1576 

LDA <Z50),Y 


AA7D 9149 

1577 

STA (Z49),Y 

;and + 2 

AA7F 60 

1578 

RIS 
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1580 

;“PRINT#" 

command 



1581 

; 


AA80 

2086AA 

1582 

WAA80 JSR 

SAA86 

AA83 

4CB5AB 

1583 

JMP 

JABB5 



1584 

j 




1585 

;“CMD" command 



1586 

; 


AAS6 


1587 

WAA86 - 

* 

AA86 

209EB7 

1588 

SAA86 JSR 

SB79E 

AA89 

F005 

1589 

BEQ 

BAA90 

AA8B 

A92C 

1590 

LDA 

' 

AA8D 

20FFAE 

1591 

JSR 

SAEFF 

AA90 

08 

1592 

BAA90 PHP 


AA91 

8613 

1593 

STX 

Z13 

AA93 

2018E1 

1594 

JSR 

XE118 

AA96 

28 

1595 

PDF 


AA97 

4CA0AA 

1596 

JKT 

JAAAO 



1597 

J 


AA9A 2021AB 

1598 

BAA9A JSR 

SAB21 

AA9D 

207900 

1599 

BAA9D JSR 

X0079 



1600 

; 




1601 

;‘'PRINT" comma od 



1602 

j 


AAAO 


1603 

«AAAO » 

* 

aaao 

F035 

1604 

JAAAO BEQ 

SAAD7 

AAA2 

F043 

1605 

JAAA2 BEQ 

BAAE7 

AAA4 

C9A3 

1606 

CM? 

SA3 

AAA6 

F050 

1607 

BEQ 

BAAF8 

AAA8 

C9A6 

1608 

CKP 

$A6 

AAAA 

16 

1609 

CLC 


AAAB 

F04B 

1610 

BEQ 

BAAF8 

AAAD 

C92C 

1611 

CMF 

* 

AAAF 

F037 

1612 

BEQ 

BAAE8 

AAB1 

C93B 

1613 

CKP 

' . 

AAB3 

F05E 

1614 

BEQ 

BAB13 

AAB5 

209EAD 

1615 

JSR 

SAD9E 

AAB8 

?40D 

1616 

BIT 

ZOD 

AABA 

3 ODE 

1617 

BMI 

BAA9A 

AABC 

20DDBD 

1618 

JSR 

SBDDD 

AABF 

2087B4 

1619 

JSR 

SB487 

AAC2 

2021AB 

1620 

JSR 

SAB21 

AAC5 

203BAB 

1621 

JSR 

SAB3B 

AAC8 

D0D3 

1622 

BNE 

BAA9D 


jexecute CMD and PRINT 
; reset CMD output file # 


;get next integer value in X 

;if more parameters 

;oext parameter must be a comma 

;save flags 
;store new CMD file # 
jselect output device 
jre6tore flags 
;execute command PRINT 

;print BASIC string from 222/223 
;get curreat character 


;if ao parameters, end lice on CMD file 
;if end of statement, return 
;if TAB( 

;do TAB/SPC routine 
;if SPC( 

;do TAB/SPC routine 
;if comma 
;go do flxed tab 
;if semicolon 
;ignore 

jevaluate expression 

;if string 

;print BASIC string 

jconvert flp accu to string 

;get descriptor of string in flp accu 

;print BASIC string from Z22/223 

;prlnt Cursor RIght on CMD output file 

;repeat 
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1624 

;eod statement in 

buffer and on screen 



1625 

» 






1626 

;X“index beyond last byte In buffer 



1627 

» 




AACA 

A900 

1628 

JAACA 

LDA 

$00 

;add 00 to statement in buffer 

AACC 

9D0002 

1629 


STA 

X0200.X 


AACF A2FF 

1630 


LDX 

$FF 


AAJD1 

AOOl 

1631 


LDY 

$01 

;reset index to beginning of statement 

AAD3 

A513 

1632 


LDA 

Z13 

;if CKD output file * default 

AADS 

DOIO 

1633 


BUE 

BAAE7 

;then end line on CMD output file 



1634 

* 






1635 

;end line 

on CMD output file 



1636 

» 




AAD7 

A90D 

1637 

SAAD7 

LDA 

$0D 

;print a Return 

AAD9 

2047AB 

1638 


JSR 

SAB47 

;on CMD output file 

AADC 

2413 

1639 


BIT 

Z13 

;if file number < 128 

AADE 

1005 

1640 


BPL 

BAAE5 

•do not add Linefeed 

AAEO 

A90A 

1641 


LDA 

$0A 

;else print a Linefeed on CMD file 

AAE2 

2 04 7AB 

1642 


JSR 

SAB47 


AAE5 

49FF 

1643 

BAAE5 

EOE 

$FF 

;condition flaga 

AAE7 

60 

1644 

BAAE7 

RTS 





1645 

i 






1646 

;routine for prlntlng blanks and tabs 



1647 

> 






1648 

[fixed tabs at BAAE8 



1649 

;tab( 

& SFC( at BAAF8 



1650 

> 




AAE8 

38 

1651 

BAAE8 

SEC 



AAE9 

20FOFF 

1652 


JSR 

XFFFO 

;read cursor position luto XY 

AAEC 

98 

1653 


TYA 



AAED 

38 

1654 


SEC 



AAEE E90A 

1655 

BAAEE 

SBC 

$0A 

;convert column to modulo 10 (-10 to - 

AAFO 

BOFC 

1656 


BCS 

BAAEE 


AAF2 

49FF 

1657 


EOR 

$FF 

jcompleoent 

AAF4 

6901 

1658 


ADC 

$01 

;A • t blanks to insert 

AAF6 

D016 

1659 


BHE 

BABOE 

;sklp lf zero 

AAF8 

08 

1660 

BAAFB 

PHF 


;save status 

AAF9 

38 

1661 


SEC 



AAFA 

20F0FF 

1662 


JSR 

XFFFO 

; ri* ad cursor posltlon agate 

AAFD 

8409 

1663 


STT 

Z09 

;tavt column 

AAFF 

209BB7 

1664 


JSR 

SB79B 

;evaluate expreBsion luto X 

AB02 

C929 

1665 


CMP 

') 

;lf not endlug wlth ")" 

AB04 

D059 

1666 


BHE 

BAB5F 

;then SYNTAX Error 

AB06 

28 

1667 


FLP 


;restore status 

AB07 

9006 

1668 


BCC 

BABOF 

;lf code for TAB( 

AB09 

8a 

1669 


TXA 


;get value in A 

ABOA E509 

1670 


SBC 

Z09 

;subtract current character posltlon 

ABOC 

9005 

1671 


BCC 

BAB13 

;sklp lf negative 

ABOE 

AA 

1672 

BABOE 

TAX 



ABOF 

E8 

1673 

BABOF 

INX 



ABIO 

CA 

1674 

BAB10 

DEX 



AB11 

D006 

1675 


BHE 

BAB19 

;lf zero 

ABI 3 

20730Ò 

1676 

BAB13 

JSR 

X0073 

;get next character 

AB16 

4CA2AA 

1677 


JMP 

JAAA2 

; return to PRINT 

ABI 9 

203BAB 

1678 

BAB19 

JSR 

SAB3B 

;prlnt Cursor Rlght on CMD output file 

ABIC D0F2 

1679 


BNE 

BAB10 

;X times 
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16S1 jpriui strlng froa 
1682 ; 


AB1E 

2087B4 

1683 

SABiE 

JSR 

SB487 



1684 

> 





1685 

;rrint BA! 

SIC strin; 



1686 

» 



AB21 

20A6B6 

1687 

SAB21 

JSR 

SB6A6 

AB24 

AA 

1688 


TAX 


AB25 

AOOO 

1689 


LDY $00 

AS27 

ES 

1690 


IKX 


AB26 

CA 

1691 

BAB28 

DEX 


AB29 

FOBC 

1692 


BEQ 

BAAE7 

AS2B 

B122 

1693 


LDA (Z22),Y 

AB2D 

2047AB 

1694 


JSR 

SAB47 

AB30 

C8 

1695 


INY 


AE31 

esce 

1696 


CK? 

$0D 

AB33 

DOFJ 

1697 


BNE 

BAB28 

AB35 

20E5AA 1698 


JSR 

BAAE5 

AB38 

4C28AB 

1699 


JMP 

BAB28 



1700 

t 





1701 

;prlnt a character 



1702 

• 



AB3B 

A513 

1703 

SAB3E 

LDA 

Z13 

AE3D 

F003 

1704 


BEQ 

BAB42 

AB3F 

A920 

1705 


LDA 

$20 

ABtl 

2C 

1706 


.BY 

S2C 

AB 4 2 

A91D 

1707 

BAB42 

LDA 

$1D 

AS44 

2C 

not 


-BY 

$2C 

AB45 

A93F 

1709 

SAB45 

LDA 

S3F 

AB47 

200CE1 

1710 SAB47 

JSR 

XE10C 

AB4A 

29FF 

1711 


AND 

$FF 

AB4C 

60 

1712 


RTS 



A” 

;aove strlng descriptor luto flp accu 
fror 222.'223 

;get text pointer into Z22/Z23 
;save strlng length 


jdecreaent length pending 
;exlt upor. eoapietion 
;get next character 
;prlnt It on CMC output file 
;advance pointer 

;if character pilette vai a Ket.ru 

;then do duasay instruction 
;repeat 

on CMD output file 

;if CMD output file is defoult 

;print Cursor Right 
;else use space 
, ski? next instruction 
;load Cursor Right 
iskip next instruction 
;load 

.output a character 

;and exit with fiags correspondlng 

;to originai A 
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1714 

;read 

errors 



1715 

i 



AB4D 

A511 

1716 

JAB4D 

LDA 

ZÌI 

AB4F 

F011 

1717 


BEQ 

BAB62 

AB51 

3004 

1718 


BM1 

BAB57 

ABS3 

AOFF 

1719 


LDY 

SFF 

AB55 DO04 

1720 


BNE 

BAB5B 

AB57 

A53F 

1721 

BAB57 

LDA 

Z3F 

AB59 

A4 40 

1722 


LDY 

Z40 

AB5B 

8539 

1723 

BAB5B 

STA 

Z39 

AB5D 

84 3A 

1724 


STY 

Z3A 

AB5F 4C08AF 

1725 

BAB5F JMP 

JAF08 

AB62 

A513 

1726 

BAB62 

LDA 

Z13 

AB64 

F005 

1727 


BEQ 

BAB6B 

AB66 

A218 

1728 


LDX $18 

AB6B 

4C37A4 

1729 


JMP 

JA437 



1730 

J 



AB6B 

A90C 

1731 

BAB6B 

LDA 

<TAD0C 

AB6D 

AOAD 

1732 


LDY 

>TAD0C 

AB6F 

201EAB 

1733 


JSR 

SAB1E 

AB72 

A53D 

1734 


LDA Z3D 

AB74 

A43E 

1735 


LDY Z3E 

AB76 

857A 

1736 


STA 

Z7A 

AB78 

847B 

1737 


STY 

Z7B 

AL. A 

6C 

1736 


RTS 




1739 

» 





1740 

;**GEX" command 



1741 

» 



AB7B 20A6B3 

1742 

WAB7B 

JSR 

SB3A6 

AB7E 

C923 

1743 


CMP 

'# 

AB80 

D010 

1744 


BNE 

BAB92 

Ai 8 2 

207300 

1745 


JSR XQ073 

AB85 

209EB7 

1746 


JSR SE79E 

ABS8 

A92C 

1747 


LDA 

» 

AB8A 20FFAE 

1748 


JSR SAEFF 

AB8D 8613 

1749 


STX ZI 3 

AB8F 

201EE1 

1750 


JSR XE11E 

AB92 

A201 

1751 

BAB92 

LDX $01 

AB94 

A002 

1752 


LDY $02 

AB96 

*900 

1753 


LDA $00 

AB98 

8D0102 

1754 


STA X0200+1 

AB9B 

A940 

1755 


LDA $40 

AB9D 

200FAC 

1756 


JSR SACOF 

ABA0 A613 

1757 


LDX 

Z13 

■ABA2 

D013 

1758 


BNE 

BABB7 

ABA4 

60 

1759 


RTS 




1760 

» 





1761 

INPUT#" 

command 



1762 

» 



AB A 5 

209EB7 

1763 

WABA5 

JSR 

SB79E 

ABA8 

A92C 

1764 


LDA 

» 

ABAA 

20FFAE 

1765 


JSR 

SAEFF 

ABAD 8613 

1766 


STX 

Z13 

ABAF 

201EE1 

1767 


JSR 

XE11E 

ABB2 

20CEAB 

1768 


JSR 

sabce 

ABB5 

A513 

1769 

JABB5 

LDA 

Z13 


ABB7 20CCFr 1770 BABE7 JSR XFFCC 

ABBA A200 1771 LDX $00 

ABBC 8613 1772 STX Z13 

ABBE 60 1773 RTS 


; sklp if INPUT 
;if GEI 

;set statement t invalld 
;for READ 

;get DATA statement II 
;store statement fi 

;SYNTAX Error 

;lf INPUT and not default CMD file 

ipolnt to FILE DATA message 
jprint error 

;if INPUT and default CMD output file 
;index REDO FROM START message 
;print message 

;move pointer to current statement 
;lsto eurrent character pointer 


jcheck for direct mode 
;if next character is # sign 

; thèn get next character 
;and next integer value in X 

;next character must be a conma 
;set new CMD input file 
;open device for input 
;set pointer to end of line 


;set character string terminator 

;set code for GET 

;lnterpret data 

;get CMD output file 

;if not default go reset it 


;get next integer value in X 

;next character must be a comma 
;set CMD file # 

;open device for input 
;do Input 

;get CMD file number 
;deselect all devices 

;set CMD file to default 
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1775 

INPUT" command 




1776 

; 




ABBF 

C922 

1777 

KABBF 

CMP 

- « 

;if next character is a quote 

ABC1 

DOOB 

1778 


BNE 

SABCE 


ABC 3 

20BDAE 

1779 


JSR 

SAEBD 

;get descriptor of llteral prompt string 

ABC6 

A93B 

1780 


LDA 

* j 

;if next character is not a 

* pr>0 

2CFFAE 

1 70 3 

X I <J X 


JSR 

SAEFF 


ABCB 

202iAB 

1782 


JSB 

SAB21 

;then SYNTAX Error 

AB CE 

20A6B3 

1783 

SABCE 

JSR 

SB3A6 

Sprint prompt string 

ABBI 

A92C 

1784 


LDA 

1 

; place a comma before input string 

ABD3 

8DFF01 

1785 


STA 

X01FF 


ABD6 

20F9AB 

1786 

BABD6 

JSR 

SABF9 

;get input line into input buffer 

ABD9 

A313 

1787 


LDA 

Z13 

;if CMD file 

ABDB 

FOOD 

1788 


BEQ 

BABEA 

;ls not default 

AEDD 

20B7FF 

1789 


JSR 

XFFB7 

;and ST does not show 

ABEO 

2902 

1790 


AND 

$02 

;a Read Error 

ABE2 

F006 

1791 


BEQ 

BABEA 


ABE4 

20B5AB 

1792 


JSR 

JABB5 

;reset CMD file to default 

ABE7 

4CF8AB 

1793 


JMP 

JA8F8 

;execute command DATA 



1794 

1 




ABEA 

AD0002 

1795 

BABEA 

LDA 

X0200 

;else lf not a nuli line 

ABED 

D01E 

1796 


BNE 

BACOD 

;interpret data 

ABEF 

A513 

1797 


LDA 

213 

;if nuli line and CMD file not default 

ABF1 

DOE3 

1798 


BNE 

BABD6 

;sk.ip nuli line 

ABF3 

2006A9 

1799 


JSR 

SA906 

;get end of line 

ABF6. 

4CFBA8 

1800 


JMP 

8A8FB 

;skip rest of statement 



1801 

; 






1802 

;get line 

into Input buffer 



1803 

1 




ABF9 

A513 

1804 

SABF9 

LDA 

213 

;if CMD file - default 

ABFB 

D006 

1805 


BNE 

BACO 3 


ABFD 

204 5AB 

1806 


JSR 

SAB45 

;print "7" on CMD file 

ACOO 

203BAB 

1807 


JSR 

SAB3B 

;print Cursor Righe on CMD file 

AC03 

4C60A5 

1808 

BAC03 

JMP 

SA560 

;go get statement into input biiffer 



1809 

» 





1810 

;"READ" command 




1811 

t 




AC06 

A641 

1812 

WAC06 

LDX 

241 

;get current DATA address into XY 

AC08 

A442 

1813 


LDY 

242 

ACCA 

A998 

1814 


LDA 

$98 

;set READ code 

A COC 

2C 

1815 


• BT 

$2C 

;skip next instruction 

ACOO 

A900 

1816 

BACOD 

LDA 

$00 

;for INPUT, set A to 0 

ACOF 

8511 

1817 

SACOF 

STA 

zu 

jsave entry mode 

AClt 

8643 

1818 


STX 

243 

; save XY into temporary read pointer 

AC13 

8444 

1819 


STY 

Z44 


AC15 

208BBO 

1820 

JAC15 

JSR 

SB08B 

Sgather nane & get pointer to variable 

AC18 

8549 

1821 


STA 

249 

; store pointer 

AC1A 

844A 

1822 


STY 

Z4A 


AC1C 

A57A 

1823 


LDA 

27A 

;get current character pointer 

AC1E 

A47B 

1824 


LDY 

Z7b 


AC20 

854B 

1825 


STA 

24 B 

;save lt 

AC22 

844C 

1826 


STY 

Z4C 


AC24 

A643 

1827 


LDX 

243 

;get temporary read pointer 

AC26 

A4 44 

1828 


LDY 

244 


AC28 

867 A 

1829 


STX 

Z7a 

;use it as current character pointer 

AC2A 

847B 

1830 


STY 

27b 


AC2C 

207900 

1831 


JSR 

X0079 

;get current character 

AC2F 

D020 

1832 


BNE 

BAC51 

;if end of statement, get next character 

AC31 

2411 

1833 


BIT 

ZÌI 

;lf CET mode 

AC33 

500C 

1834 


BVC 

BAC41 
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;get a character froui CMD file 
;$ave character in input buffer 


AC35 

2024E1 

1835 

JSR XE124 

AC38 

8D0002 

1836 

STA X0200 

AC3B 

A2FF 

1837 

LDX $FF 

AC3D 

A001 

1838 

LDY SOI 

AC3F 

D00C 

1839 

BNE BAC4D 

aAi 

3075 

1840 

BAC41 BMI BACB8 

AC43 

A513 

1841 

LDA Z13 

AC45 

D003 

1842 

BNE BAC4A 

AC47 

2045AB 

1843 

JSR SAB45 

AC4A 20F9AB 

1844, 

BAC4A JSR SABF9 

AC4D 

867A 

1845 

BAC4D STX Z7A 

AC4F 

847B 

1846 

STY Z7B 

AC51 

207300 

1847 

BAC51 JSR X0073 

AC54 

240D 

1848 

BIT ZOD 

AC56 

1031 

1849 

BPL BAC89 

AC58 

2411 

1B50 

BIT Zìi 

AC5A 

5009 

1851 

BVC BAC65 

AC5C 

E8 

1852 

INX 

AC5D 

86 7A 

1853 

STX Z7A 

AC5F 

A900 

1854 

LDA $00 

AC61 

8507 

1855 

STA Z07 

AC63 

F00C 

1856 

BEQ BAC71 

AC65 

8507 

1857 

BAC65 STA Z07 

AC67 

C922 

1858 

CMP 

AC69 

F007 

1859 

BEQ BAC72 

AC6B 

A93A 

1860 

LDA 't 

AC6D 8507 

1861 

STA Z07 

AC6F 

A92C 

1862 

LDA 

AC71 

18 

1863 

BAC71 CLC 

AC72 

8508 

1864 

BAC72 STA Z08 

AC74 

A57A 

1865 

LDA Z7A 

AC76 A47B 

1866 

LDY Z7B 

AC78 

6900 

1867 

ADC $00 

AC7A 9001 

1668 

BCC BAC7D 

AC7C 

C8 

1869 

INY 

AC7D 

208DB4 

1870 

BAC7D JSR SB48D 

AC80 

20E2B7 

1871 

JSR SB7E2 

AC83 

20DAA9 

1872 

JSR SA9DA 

AC86 

4C91AC 

1873 

JMP JAC91 



1874 

! 

AC89 

20F3BC 

1875 

BAC89 JSR SBCF3 

ACSC A50E 

1876 

LDA ZOE 

AC8E 

20C2A9 

1877 

JSR SA9C2 

AC91 

207900 

1878 

JAC91 JSR X0079 

AC94 

F558 

298- 

FTK F:A-U 

AC96 

C92C 

1880 

CMP 

AC98 

F003 

1881 

BEQ BAC9D 

AC9A 

4C4DAB 

1882 

JMP JAB4D 



1883 

» 

AC9D 

A57A 

1884 

BAC9D LDA Z7A 

AC9F 

A47B 

1885 

LDY Z7B 

ACA1 

8543 

1886 

'ì. STA Z43 

ACA3 

8444 

1887 

STY Z44 

ACA5 

A54B 

1888 

LDA Z4B 

ACA7 

A44C 

1889 

LDY Z4C 

ACA9 

857A 

1890 

STA Z7A 

ACAB 

847B 

1891 

STY Z7B 

ACAD 207900 

1892 

JSR X0079 

ACB0 

F02D 

1893 

BEQ BACDF 

ACB2 

20FDAE 

1894 

JSR SAEFD 


;move buffer address - 1 lnto XY 

;if READ go get next DATA element 
;for INPUT if CMD file * default 

;print *'T" on CMD file 
;get new input line 

;store pointer into current pointer 

;get next pointer 

;if not a strlng variable 

;and CET mode 


jsVdlp character 

;aet nuli as terminator 

;if strlng variable and READ or INPUT 
jstore character as terminator 
;if not quote character 
;atore as terminator 


;and as an alternative t'erminator 


; strip inltial quote lf any 

;get descrlptor qf string into flp accu 
;move text pointer into current pointer 
;a8sign to string 

jconvert string into flp accu 
jload lnteger flag 
;asslgn to integer or reai 
;get current character 
Xjqfh ca ael rp fhihajaeh 
;or a comma 

;else read error 

;move current character pointer 

;into temporary read pointer 

;move saved current character pointer 

;to current character pointer 

;get current character 
;must be end of statement 
;or a comma 
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ACB5 

4C15AC 

1895 

JMP 

JAC15 

;lf so repeat read 



1896 

* 



ACB8 

2006A9 

1897 

BACB8 JSR 

SA906 

;if end of line during READ, geo Index 

ACBB 

C8 

1898 

INY 


;to end of statement and bump it 

ACBC 

AA 

ie?9 

TAX 


;move last character 

ACBB 

D012 

1900 

bne 

BACD1 

;lf aero, ■ 

ACBF 

A20D 

1901 

LDX 

SOD 

;polnt Co ODT OF DATA message 

ACCI 

C8 

1902 

IKY 



ACC2 

B17A 

1903 

LDA 

(27A),Y 

;lf high of ptr co next statement zero 

ACCA 

F06C 

1904 

BEQ 

BAD32 

;fatel error 

ACC6 

C8 

1905 

INY 



ACC7 

B17A 

1906 

LDA 

(27A),Y 

;move low byte of next statement S 

ACC9 

853F 

1907 

STA 

Z3F 

;lnto DATA statement t 

ACCE 

C8 

1908 

IKY 



ACCC 

B17A 

1909 

LDA 

(27A) ,Y 

;high byte also 

ACCE 

CB 

1910 

IKY 



ACCF 

8540 

19 i 1 

STA 

Z40 

;add offset to current charscter pointer 

ACD1 

20FBA8 

1912 

BACD1 JSR 

BA8FB 

ACD4 

207900 

1913 

JSR 

X0079 

;get current character 

ACD7 

AA 

1914 

TAX 



AC 08 

E083 

1915 

CFX 

$83 

;lf not code for DATA 

ACDA 

DODO 

1916 

BNE 

BACB8 

;go aVlp statement 

ACDC 

4C51AC 

1917 

JMP 

BAC51 

;set READ pointer 



1918 

» 



ACDF 

A543 

1919 

BACDF LDA 

243 

;at end o£ READ statement 

ACE1 

A444 

1920 

LDY 

Z44 

;get temporary read pointer 

ACE 3 

A611 

1921 

LDX 

ZÌI 

;if GET or READ mode 

ACE 5 

1003 

1922 

BPL 

BACEA 


ACE7 

4C27A8 

1923 

JMP 

BA827 

;go set READ pointer 



1924 

» 



ACEA 

AOOO 

1925 

BACEA LDT 

$00 

;if INPUT 

ACEC 

B143 

1926 

LDA 

(Z43),Y 

;must be end of line 

ACEE 

FOOB 

1927 

BEQ 

BACFB 


ACFO 

A513 

1928 

LDA 

Z13 

;else, if CMD file « default 

ACF2 

0007 

1929 

BNE 

BACFB 


ACF4 

A9FC 

1930 

LDA 

<TACFC 

;set AY to message EXRTA IGNORED 

ACF6 

AOAC 

1931 

LDT 

>TACFC 


ACF8 

4C1EAB 

1932 

JMP 

SAB1E 

sprint message 



1933 

J 



ACFB 

60 

1934 

BACFB RTS 





1935 

» 





1936 

;messages 

used during READ 



1937 

> 



ACFC 

3F4558 

1938 

TACFC .BY 

$3F,'E,'X 

,'T,'R,'A,' ,'I,'C,'N,'0,'R,'E,'D,$0D,$00 

ADOC 

3F5245 

1939 

TADOC -BY 

$3F,'R,'E, 

,'D,'0,' ,'F,'R,'0,'M,' ,'S,'T,'A,'R,'I 

AD1C 

0000 

1940 

-BY 

$OD,$00 
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1942 

; *‘NEXT“ comm a ad 




1943 

9 




ADIE 

D004 

1944 

WAD1E 

BNE 

SAD24 

;lf no parameters 

AD20 

AOOO 

1945 


LDY 

$00 

;sec Index pointer to varlable 

AD22 

F003 

1946 


BEQ 

BAD27 


AH 2 4 

2O8BB0 

1947 

SAD24 

JSR 

SB08B 

;else gather nane 6 get ptr co varlable 

AD27 

8549 

1948 

BAD27 

STA 

Z49 

;save pointer 

AD29 

B44A 

1949 


STY 

Z4A 


AD2B 

208AA3 

1950 


JSR 

SA38A 

;get corresponding FOR block 

AD2E 

F005 

1951 


BEQ 

BAD35 


AD30 

A20A 

1952 


LDX 

$0A 

;lf not found. 

AD32 

4C37A4 

1953 

BAD32 

JMP 

JA437 

jerror NEXT W1THOUT FOR 



1954 

i 




AD35 

9A 

1955 

BAD35 TXS 


;if found remove everythlng on top 

AD36 

8A 

1956 


TXA 



AD37 

18 

1957 


CLC 



AD38 

6904 

1958 


ADC 

$04 


AD3A 

48 

1959 


PHA 


;get stack Index of STEP value (+ 3) 

AD3B 

6906 

1960 


ADC 

$06 


AD3D 

8524 

1961 


STA 

Z24 


AD3F 

68 

1962 


PLÀ 


;save stack Index of TO value (+ 9) 

AD40 

AOOl 

1963 


LDY 

$01 

;hlgh order byte of stack pointer 

AD42 

20A2BB 

1964 


JSR 

SBBA2 

jrestore flp accu 

AD45 

BA 

1965 


TSX 


;get top index 

ADA 6 

BD0901 

1966 


LDA 

X0100F9,X 

;get sign of STEP value {+ 8) 

AD49 

8566 

1967 


STA 

Z66 

;restore sign byte of flp accu 

AD AB 

A549 

1968 


LDA 

Z49 


AD4D 

A44A 

1969 


LDY 

Z4A 

;AY polnts to FOR varlable 

AD4F 

206768 

1970 


JSR 

SB867 

;add flp accu to I at AY 

AD52 

20D0BB 

1971 


JSR 

JBBDO 

;store flp sccu loto FOR varlable 

AD55 

AOOl 

1972 


LDY 

$01 


AD57 

205DBC 

1973 


JSR 

SBC5D 

;compare flp accu to upper llmlt 

AD5A 

BA 

1974 


TSX 


;get top Index 

ADSB 

38 

1975 


SEC 



AD5C 

FD0901 

1976 


SBC 

X010<H9,X 

;lf different from sign of STEP 

AD5F 

F017 

1977 


BEQ 

BAD78 


AD61 

BDOFOl 

1978 


LDA 

X0100H5,X 


AD 64 

8539 

1979 


STA 

Z39 

;restore statement t to start of loop 

AD66 

BD1001 

1980 


LDA 

X0100+16.X 

AD69 

853a 

1981 


STA 

Z3A 


AD6B 

BD1201 

1982 


LDA 

X0100H8.X 

AD6E 

857a 

1983 


STA 

Z7A 

;restore character ptr to 6tart of loop 

AD70 

BD1101 

1984 


LDA 

X0100H7.X 


AD73 

857B 

1985 


STA 

Z7B 


AD75 

4CAEA7 

1986 

BAD75 JMP 

JA7AE 

;go execute next statement 



1987 

* 




AD78 

8A 

1988 

BAS78 TXA 



AD79 

6911 

1989 


ADC 

$U 

;add 17 to stack pointer 

AD7B 

AA 

1990 


TAX 


;to remove FOR block 

AD7C 

9A 

1991 


TXS 



AL7D 

207900 

1992 


JSR 

X0079 

;get current character 

AD80 

C92C 

1993 


CMP 

» 

;lf a comma then execute next stateaent 

AD82 

D0F1 

1994 


BNE 

BAD75 


AD86 

207300 

1995 


JSR 

X0073 

;elae get next character 

AD87 

2024AD 

1996 


JSR 

SAD24 

;and go repeat NEXT statement 
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i99S 

;get next non-string valile 



1999 

9 



AMA 209EAD 

2000 

SAD8A JSR SAD9E 

;get next value 



2001 

» 



AD8D 18 

2002 

SAD8D CLC 

;set string not wanted 


AD8E 24 

2003 

• BY $24 

;skip next instructlon 



2004 

t 

* 



2005 

;check value to be 

string 



2006 

> 



AD8F 38 

2007 

SAD8F SEC 

;Bet string wanted 



2008 

1 




2009 

; check value accoring to C flag 



2010 

f 



AD90 240D 

2011 

SAD90 BIT ZOD 

;test 6trlng flag 


AD92 3003 

2012 

BMI BAD97 

;lf not string 


AD94 B003 

2013 

BCS BAD99 

; and string wanted, error 


AD96 60 

2014 

BAD96 RTS 

;else return 



2015 

* 



AD97 BOFD 

2016 

EAD97 BCS BAD96 

;if string and string wanted, return 

AD99 A216 

2017 

BAD99 LDX $16 

;lf string and string not wanted, 

index 

AD9B 4C37A4 

2018 

■ JMP JA437 

;TYPE MISMATCH and print error 



2019 

» 




2020 

-.evaluate expresslon 



2021 

; 



AD9E A67A 

2022 

SAD9E LDX Z7A 

;decrement character pointer 


ADAO D002 

2023 

BNE BADA4 



ADA2 C67B 

2024 

DEC Z7B 



ADA4 C67A 

2025 

BADA4 DEC Z7A 



ADA6 A200 

2026 

LDX $00 

;lnltial prlority 


ADA8 24 

2027 

.BY $24 

;sklp next Instructlon 


ADA9 48 

2028 

JADA9 PHA 

; save <•> code 


ADAA 8A 

2029 

TXA 



ADAB 48 

2030 

PHA 

;save prlority 


ADAC A901 

2031 

LDA $01 

;one slot on stack wanted 


ADAE 20FBA3 

2032 

JSR SA:.. 

;else error OUT OF MEMORY Error 


ADE1 208 3AE 

2033 

JSR SAESi 

;get value of next operand in flp 

accu 

ADB4 A900 

2034 

LDA $00 



ADB6 854D 

2035 

STA Z4D 

; Ini rial <-> code for next diadic 


ADB8 207900 2036 

JADB8 JSR X0079 

;get current character 


ADBB 38 

2037 

JADBB SEC 



ADBC E9B1 

2038 

SBC $B1 

; sub tract code for > 


ASSE 9017 

2039 

BCC BADD7 

jbranch lf lower than > 


ADQO C903 

2040 

CMP $03 



ADC2 B013 

2041 

BCS BASD7 

;or lf hlgher than < 


ADC4 C901 

2042 

CHP $01 

. 


ADC6 2A 

2043 

ROL A 

;computa bits for <”> 


ADC7 4901 

2044 

EOR $01 

;blt 2 for <, 1 for - and 0 for > 


ADC9 454D 

2045 

EOR Z4D 

;add to exlsting <-> code 


ADCB C54D 

2046 

CMP Z4D 

;lf bit added for thè second rime 


AD CO 9061 

2047 

BCC BAE30 

;then SYNTÀX Error 


ADCF 8S4D 

2048 

STA Z4D 



ADDI 207300 

2049 

JSR X0073 

;get next character 


ADD4 4CBBAD 2050 

JMP JADBB 

;and repeat 



2051 

* 



ADD7 A64D 

2Ó52 

BADD7 LDX Z4D 



ADD9 D02C 

2053 

BNE BAE07 

;lf no <*> code 


ADDB B07B 

2054 

BCS BAES8 

;then end at non-diadlc character 


ADDO 6907 

2055 

ADC $07 

;diadic index 0-6 


ADDF 9077 

2056 

BCC BAE58 



ADE1 650D 

2057 

ADC ZOD 

;add string flag + carry 
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ADE 3 

DO 03 

2058 


BNE 

BADE8 

ADE 5 

4C3DB6 

2059 


JMP 

JB63D 



2060 

; 



ADE8 

69FF 

2061 

BADE8 

ADC 

$FF 

ADEA 

8522 

2062 


STA 

Z22 

ADEC 

OA 

2063 


ASL 

A 

ADED 

6522 

2064 


ADC 

Z22 

ADEF 

AB 

2065 


TAX 


ADFO 

68 

2066 

BADF0 

PLA 


ADF1 

D980A0 

2067 


CMP 

TA080.Y 

ADF4 

B067 

2068 


BCS 

BAE5D 

ADF6 

208DAD 

2069 


JSR 

SAD8D 

ADF9 

48 

2070 

BADF9 

PHA 


ADFA 

202OAE 

2071 

JADFA 

JSR 

SAE20 

ADFD 

68 

2072 


PLA 


ADFE 

A44B 

2073 


LDX 

Z4B 

AEOO 

1017 

2074 


BPL 

BAE19 

AE02 

AA 

2075 


TAX 


AE03 

F056 

2076 


BEQ 

BAE5B 

AE05 

D05F 

2077 


BNE 

BAE66 

AE07 

460D 

2078 

BAE07 

LSR 

ZOD 

AE09 

8A 

2079 


TXA 


AEOA 

2A 

2080 


R0L 

A 

AEOB 

A67A 

2081 


LDX 

Z7A 

AEOD 

D002 

2082 


BNE 

BAEll 

AEOF 

C67B 

2083 


DEC 

Z7B 

AEll 

C67A 

2084 

BAEll 

DEC 

Z7A 

AE13 

A01B 

2085 


LDX 

$1B 

AE15 

854D 

2086 


STA 

Z4D 

AE17 

D0D7 

2087 


BNE 

BADF0 

AE19 

D980AO 

2088 

BAE19 

CMP 

TA080.T 

AE1C 

B048 

2089 


BCS 

BAE66 

AE1E 

90D9 

2090 


BCC 

BADF9 



2091 

» 





2092 

jrecursive entry foi 



2093 

» 



AE20 

B982A0 

2094 

SAE20 

LDA TA08O+2,Y 

AE23 

48 

2095 


PHA 


AE24 

B981A0 

2096 


LDA TA08(H-i,y 

AE27 

48 

2097 


PHA 


AE28 

2033AE 

2098 


JSR SAE33 

AE2B 

A54D 

2099 


LDA Z4D 

AE2D 

4CA9AD 

2100 


JMP 

JADA9 



2101 

! 



AE30 

4C08AF 

2102 

BAE30 

JMP 

JAF08 



2103 

! 





2104 

;sàve 

rounded value 



2105 

» 



AE33 

A566 

2106 

SAE33 

LDA 

Z66 

AE3S 

BE80A0 

2107 


LDX 

TA080,y 

AE38 

A8 

2108 

SAE38 

TAT 


AE39 

68 

2109 


PLA 


AE3A 

8522 

2110 


STA 

Z22 

AE3C 

E622 

2111 


INC 

Z22 

AE3E 

68 

2112 


PLA 


AE3F 

8523 

2113 


STA 

Z23 

AE41 

98 

2114 


TYA 


AE42 

48 

2115 


PHA 


AE43 

201BBC 

2116 

JAE43 

JSR 

SBC1B 

AE46 

A565 

2117 


LDA 

Z65 


;if stili zero 

;apply dladle operator "+" od stringa 
;aiake index 0-6 agaln 


J* 3 

;restore priority of stacked dladle 
jcompare to priority of current diadic 
;if stacked hlgher, apply operator 
;TYPE MISMATCH if string operand 
;save priority agaln 

;recursive cali to evaluate expression 

;restore priority agaln 

jrestore index of current diadic 

;lf ac end 

;and priority « 0 

;stop 

;else apply 
;get atriag flag 

;add to <•> code 

jdecrement character pointer 


;get index (3*9) 

;save <*> code 

;and go check prlorities 

;if true diadic, compare prlorities 

;if stacked priority hlgher, apply lt 

; else repeat 

evaluation of expressions 
;save pointer to routine for diadic 


;save rounded vaiue of left operand 

;get <-> code 

;and restart evaluation 

;print SYNTAX Error 

of left operand 

;get sign of flp accu 
;get priority of diadic 


;save return address in 222/223 


;save sign of flp accu 
;round flp accu 
;save flp accu on etack 
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AE48 

48 

2118 

PHA 


AE49 

A564 

2119 

LDA 264 


AE4B 

48 

2120 

FHA 


AE4C 

A563 

2121 

EDA 263 


AE4E 

48 

2122 

PHA 


AE4F 

AS62 

2123 

LDA 262 


AE51 

48 

2124 

FBA 


AE52 

A561 

2125 

LDA 261 


AE54 

48 

2126 

PHA 


AE55 

6C2200 

2127 

JMP (222) 

;return Co caller 



2128 

* 




2129 

;appl; dladic operator 



2130 

» 


AE58 

AOFF 

2131 

BAE58 LDY $FF 

;at expression end, set negative index 

AE5A 

68 

2132 

FLA 

;restore dladic priority from staek 

AE5B 

F023 

2133 BA3E5B BEQ BAE80 

;if zero, stop 

AE5D 

C964 

2134 

BAE5D CHP $64 

iif not priority of <«> 

AE5F 

F003 

2135 

BEQ BAE64 

AE61 

208DAD 2136 

JSR SAD8D 

;then TYPE MI SMATCH lf atrlng 

AE64 

844B 

2137 

BAE64 STY Z4B 

;save Index of current dladic 

AE66 

68 

2138 BAE66.PIA 

;reaove utring flag 

AE67 

4A 

2139 

LSR A 


AE68 

8512 

2140 

STA Z12 

;save <•*> code for < _ > routine 

AE6A 

68 

2141 

FLA 

;restote left operand 

AE6B 

8569 

2142 

STA 269 

;to second flp accu 

AE6D 

68 

2143 

FLA 


AE6E 

8S6A 

2144 

SIA Z6A 


AE70 

68 

2145 

PLA 


AE71 

856B 

2146 

STA Z6B 


AE73 

68 

2147 

PLA 


AE74 

856C 

2148 

STA Z6C 


AE76 

68 

2149 

PLA 


AE77 

856D 

2150 

STA Z6D 


AE79 

68 

2151 

PLA 


AE7A 

856E 

2152 

STA Z6E 


A£7C 

4566 

2153 

EOR Z66 

;Excluslve OR of both signs 

AE7E 

856F 

2154 

STA Z6F 


AE80 

A561 

2155 

BAE80 LDA 261 

;reterò with A ” exponent of teault 

AE82 

60 

2156 

RTS 
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AE83 

6C0A03 

2158 

SAE83 

JMF 

(X030A) 

;get arithmetic element (normally AE86) 



2159 

9 






2160 

;get arithmetic element luto flp accu 



2161 

» 




AE86 

A900 

2162 


LDA 

$00 

;set string flag to not string 

AE88 

850D 

2163 


STA 

ZOD 


AE8A 

207300 

2164 

BAE8A 

JSR 

X0073 

;get next character 

AE8D 

B003 

2165 


BCS 

BAE92 

;lf numeric, 

AE8F 

4CF3BC 

2166 

BAE8F 

JMP 

S8CF3 

jgsther nuaber 



2167 

9 




AE92 

2013B1 

2168 

BAE92 

JSR 

SEI 13 

;chech for alphabetlc character 

AE95 

9003 

2169 


BCC 

BAE9A 


AE97 

4C28AF 

2170 


JMF 

JAF28 

;if so, get value for variable 



2171 

9 




AE9A 

C9FF 

2172 

BAE9A 

CMP 

$FF 

;if code for PI 

AE9C 

DOOF 

2173 


BNE 

BAEAD 


AE9B 

A9A8 

2174 


LDA 

<TAEA8 

;let AY point to value for PI 

AEAO 

aoae 

2175 


LDY 

>TAEA8 


AEA2 

20A2BB 

2176 


JSR 

SBBA2 

;Ioad value luto flp accu 

AEA5 

4C7300 

2177 


JMF 

X0073 

;gec next charcter 



2178 

• 






2179 

;flp value for FI 




2180 

> 




AEA8 

82490F 

2181 

TAEA8 

.BY 

$82,$49, 

$0F,$DA,$Al 



2182 

9 




AEAD 

C92E 

2183 

BAEAD 

CMP 


;if decimai point 

AEAF 

FODE 

2184 


BEQ 

BAE8F 

;gather number 

AEB1 

C9AB 

2185 


CMP 

$AB 

;lf minus sign 

AEB3 

F058 

2186 


BEQ 

BAFOD 

;do recurslve get value 

AEB5 

C9AA 

2187 


CMP 

$AA 

;lf plus 

AEB7 

F0D1 

2168 


BEQ 

BAE8A 

;lgnore 

AEB9 

C922 

2189 


CMP 

"" 

;if quote 

AEBB 

DOOF 

2190 


BNE 

BAECC 


AEBD 

A57A 

2191 

SAEBD 

LDA 

Z7A 

;get pointer to first char of string 

AEBF 

A47B 

2192 


LDY 

Z78 


AEC1 

6900 

2193 


ADC 

$00 

;into Y 

AEC3 

9001 

2194 


BCC 

BAEC6 


AEC5 

C8 

2195 


INY 



AEC6 

2087B4 

2196 

BAEC6 

JSR 

SB487 

;get ptr to dese of Constant string 

AEC9 

4CE2B7 

2197 


JMP 

SB7E2 

;set current ptr after string 



2198 

* 




AECC 

C9A8 

2199 

BAECC 

CMP 

$A8 

;i£ NOT 

AECE 

DO 13 

2200 


BNE 

BAEE3 


AEDO 

A018 

2201 


LDY 

$18 

;set index for NOT 

AED2 

D03B 

2202 


BNE 

BAFOF 

;do recurslve get value 
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2204 

;monadic "NOT" command 




2205 

J 



AED4 

20BFB1 

2206 

WAED4 JSR SB1BF 

;convert flp to integer 


AED7 

A565 

2207 

LDA 265 



AED9 

49FF 

2208 

EOR $FF 

;get complement of lou byte into A 

AEDB 

AB 

2209 

TAY 

. 


AEDC 

A564 

2210 

IDA Z64 

;get complement of high byte 

in A 

AEDE 

49FF 

2211 

EOR $FF 



AEEO 

4C91B3 

2212 

JMF JB391 

;eonvert integer to flp 




2213 

* 





2214 

; continuatici of GET o per and 




2215 

» 



AEE3 

C9AS 

2216 

BAEE3 CKP $A5 

;lf FK 


AEE5 

D003 

2217 

BUE BAEEA 



AEE7 

4CF4B3 

2218 

JMF JB3F4 

;expand functlon 




2219 

; 



AEEA 

C9B4 

2220 

BAEEA CKP $B4 

;if code for SGN or higher 


AEEC 

9003 

2221 

BCC BAEF1 



AEEE 

4CA7AF 

2222 

JMP JAFA7 

;go apply functlon 




2223 

» 



AEF1 

20FAAE 

2224 

BAEF1 JSR SAEFA 

;SYNTAX Error if no '(“ presene 

AEF4 

209EAD 

2225 

JSR SAD9E 

;evaluate expresslon 




2226 

» 





2227 

; check end sklp characters 




2228 

» 



AEF7 

A929 

2229 

SAEF7 LDA ') 

; check for ”)* 


AEF9 

zc 

2230 

.BY $2C 

;sklp tat lnstruction 


AEFA 

A928 

2231 

SAEFA LDA '( 

;cbeck for "C 


AEFC 

2C 

2232 

.BY $2C 

;skip nezt lnstruction 


AEFD 

A92C 

2233 

SAEFD LDA 

;check for ' 


AEFF 

AOOO 

2234 

SAEFF LDY $00 

;check for code io A 


AEDI 

D17A 

2235 

CKP (Z7A) 

Y ;if current charscter < > to 

paraneter 

AF03 

D003 

2236 

BNE JAF08 

;then SYNTAX Error 


AF05 

4C7300 

2237 

JMP X0073 

;else get next character and 

return 



2238 

» 



AF08 

A20B 

2239 

JAF08 LDX $0B 

;polnt to SYNTAX Error message 

AFOA 

4C37A4 

2240 

JKP JA437 

Sprint nessage 




2241 

t 





2242 

;recursive get value 




2243 

» 



AFOD 

A015 

2244 

BAFOD LDY $15 

;set Index for 


AFOF 

68 

2245 

BAFOF FLA 

;remove own return address 


AFIO 

68 

2246 

PLA 



AF11 

4CFAAD 

2247 

JMP JADFA 

;do pseudo diadlc 




2248 

» 





2249 

;check varlable 

pointer range 




2250 

! 



AF14 

38 

2251 

SAF14 SEC 



AF15 

A564 

2252 

LDA Z64 



AF17 

E900 

2253 

SBC $00 



AF19 

A565 

2254 

LDA Z65 



AF1B 

E9A0 

2255 

SBC $A0 



AF1D 

9008 

2256 

BCC BAF27 

;exlt with C clear lf pointer 

< SA0O0 

AF1F 

A9A2 

2257 

LDA $A2 



AF21 

E564 

2258 

SBC Z64 < 



AF23 

A9E3 

2259 

LDA $E3 



AF25 

E565 

2260 

SBC Z65 

;clear C if $E342 < pointer 


AF27 

60 

2261 

BAF27 RTS 




49 




2263 ;get value of vartable 

2264 ; 


AJ28 

208BB0 

2265 

JAF28 JSR 

SB08B 

AF2B 

8564 

2266 

STA 

264 

AF2D 

8465 

2267 

5TY 

Z65 

AF2F 

A645 

2268 

LDX 

Z45 

AF31 

A4 46 

2269 

LDY 

Z46 

AF33 

A3 OD 

2270 

LDA 

Z0D 

AF35 

F026 

2271 

BEQ 

BAF5D 

AF37 

A900 

2272 

LDA 

$00 

AF39 

8570 

2273 

STA 

270 

AF3B 

2014AF 

2274 

JSR 

SAF14 

AF3E 

901C 

2275 

BCC 

BAF5C 

AF40 

E054 

2276 

CPX 

'T 

AF42 

D018 

2277 

BNE 

BAF5C 

AF44 

C0C9 

2278 

CFY 

$C9 

AF46 

DO 14 

2279 

BNE 

BAF5C 

AF48 

2084AF 

2280 

JSR 

SAF84 

AF4B 

84 5E 

2281 

STY 

Z5E 

AF4D 

88 

2282 

DEY 


AF4E 

8471 

2283 

STY 

Z71 

AF50 

A006 

2284 

LDY 

$06 

AF52 

84 5D 

2285 

STY 

Z5D 

AF54 

A024 

2286 

LDY 

$24 

AF56 

2068BE 

2287 

JSR 

SBE68 

AF59 

4C6FB4 

2288 

2289 

JMP 

> 

JB46F 

AF5C 

60 

2290 

2291 

BAF5C RTS 

> 


AF5D 

240E 

2292 

BAF5D BIT 

ZOE 

AF5F 

100D 

2293 

BFL 

BAF6E 

AF61 

AOOO 

2294 

LDY 

$00 

AF63 

B164 

2295 

LDA 

(264),Y 

AF65 

AA 

2296 

TAX 


AF66 

C8 

2297 

INY 


AF67 

B164 

2298 

LDA 

(Z64),Y 

AP69 

A8 

2299 

TAY 

AF6A 

8A 

2300 

TXA 


AF6B 

4C91B3 

2301 

2302 

JMP 

» 

JB391 

AF6E 

2014 AF 

2303 

BAF6E JSR 

SAF14 

AF71 

902D 

2304 

BCC 

BAFA0 

AF73 

£054 

2305 

CPX 

'T 

AF75 

D01B 

2306 

BNE 

BAF92 

AF77 

C049 

2307 

CPY 

'I 

AF79 

D025 

2308 

BNE 

BAFAO 

AF7B 

2084AF 

2309 

JSR 

SAF84 

AF7E 

98 

2310 

TYA 


AF7F 

A2A0 

2311 

LDX 

$A0 

AF81 

4C4FBC 

2312 

JMP 

JBC4F 


;gather name and get pointer to variable 
;aave pointer to variable 

;get nane of variable 

;if not a string 

;go check for integer and flp 


;check for pointer < $AOOO or > $E342 
;yes, return 

;if flrst character of variable not T, 

; return 

;if second character - "1$" 

;get rime in flp acca 
;clear erponent baae 10 

;lnltlallze output index 

;and f of digita before decimai polnt 

;set table Index for tioe conversion 

;convert flp to string 

;get deacriptlon of string into flp accu 


;if Integer variable 


;get integer value in AY 


;convert integer to flp 

;if not nomai variable 

;and if first character la T 

;and aecond character ls 1 

;get time into flp accu 

;set exponent 
;slgn and guard bica 
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2314 

;get tlme In flp 

accu 


2315 

» 


AF84 20DEFF 2316 

SAF84 JSR XFFDE 

;fetch tlme 

AF87 8664 

2317 

STX Z64 


AF89 8463 

2318 

STY Z63 

;store tlme 

AF8B 8S65 

2319 

STA Z65 


AF8D AOOO 

2320 

LDY $00 


AF8F 8462 

2321 

STY Z62 


AF91 60 

2322 

RTS 



2323 

» 



2324 

; continue to get 

vaine of variable 


2325 

1 


AF92 E053 

2326 

BAF9.2 CPX 'S 

;if flrst character la S 

AF94 DOOA 

2327 

BNE BAFAO 


AF96 C054 

2328 

CPY *T 

;and secoud character la T 

AF98 0006 

2329 

BNE BAFAO 


AF9A 20B7FF 2330 

JSR XFFB7 

jget statua word 

AF9D 4C3CBC 2331 

JMP JBC3C 

;nove slgned # from A lnto flp accu 


2332 

! 


AFAO A564 

2333 

BAFAO LDA Z64 

;for nomai varlables, put pointer in AY 

AFA2 A465 

2334 

LDY Z65 


AFA4 4CA2BB 2335 

JMP SBBA2 

;load flp accu from AY 


2336 

1 



2337 

;apply function 



2338 

» 


AFA7 OA 

2339 JAFA7 ASL A 

;lndex byte * 2 

AFA8 48 

2340 

PHA 

;save index 

AFA9 AA 

2341 

TAX 


AFAA 207300 

2342 

JSR X0073 

;get next character 

AFAD E08F 

2343 

CFX $8F 

;ff function vlth more than 1 parameter 

AFAF 9020 

2344 

BCC BAFD1 


AFB1 20FAAE 

2345 

JSR SAEFA 

;next character must be "(” 

AFB4 209EAD 2346 

JSR SAD9E 

;evaluate expressìon 

AFB7 20FDAE 2347 

JSR SAEFD 

;next character must be 

AFBA 208FAD 

2348 

JSR SAD8F 

;result must be a string value 

AFBD 68 

2349 

PLA 

;restore index 

AFBE AA 

2350 

TAX 


AFBF A565 

2351 

LDA Z65 

;save pointer to description on stack 

AFC1 48 

2352 

PHA 


AFC2 A564 

2353 

LDA Z64 


AFC4 48 

2354 

PHA 


AFC5 8A 

2355 

TXA 

;save index again 

AFC6 48 

2356 

PHA 


AFC7 209EB7 

2357 

JSR SB79E 

;get next lnteger value loto X 

AFCA 68 

2358 

PLA 

;restore index 

AFCB AB 

2359 

TAY 

;index in Y 

AFCC 8A 

2360 

TXA 


AFCD 48 

2361 

PHA 

;save lnteger parameter 

AFCE 4CD6AF 2362 

JMP JAFD6 



2363 

> 


AFD1 20F1AE 

2364 

BAFD1 JSR BAEF1 

;get value in parenthesls 

AFD4 66 

2365 

PLA 

;rettore index 

AFD5 A8 

2366 

TAY 


AFD6 B9EA9F 

2367 

JAFD6 LDA X9FEA.Y 

;get pointer to function routine 

AFD9 8555 

2368 

STA Z55 

;into Z55/Z56 

AFDB B9EB9F 

2369 

LDA X9FEA+1 

,Y 

AFDE 8556 

2370 

STA Z56 


AFEO 205400 

2371 

JSR X0054 

;perfora function 

AFE3 4C8DAD 2372 

JMP SAD8D 

;return vlth correct atrlng flag 


SI 





2374 

;”OR" 

command 



2375 

» 



AFE 6 

AOFF 

2376 WAFE6 

LDY 

$FF 

AFE8 

2C 

2377 


.BY 

$2C 



2378 

► 





2379 

J^AND” c Grama nd 



2380 

» 



AFE9 

AOOO 

2381 

WAFE9 

LDY 

$00 

AFEB 

84 OB 

2382 


STY 

20B 

AFED 

20BFB1 

2383 


JSR 

SB1BF 

AFFO 

A564 

2384 


LDA 

Z64 

AFF2 

450B 

2385 


EOR 

ZOB 

AFFA 

8507 

2386 


STA 

Z07 

AFF6 

A565 

2387 


LDA 

Z65 

AFF8 

450B 

2388 


EOR 

ZOB 

AFFA 

8508 

2389 


STA 

Z08 

AFFO 

20FCBB 

;:-«c 


'JM 

.filli 

AFFF 

20BFB1 

2391 


JSR 

SB1BF 

B002 

A565 

2392 


LDA 

Z65 

8004 

450B 

2393 


EOR 

ZOB 

B006 

2508 

2394 


AND 

Z08 

B008 

450B 

2395 


EOR 

ZOB 

BOOA 

AB 

2396 


TAY 


BOOB 

A564 

2397 


LDA 

Z64 

BOOD 

450B 

2398 


EOR 

ZOB 

BOOF 

2507 

2399 


AND 

Z07 

B011 

450B 

2400 


EOR 

ZOB 

BOI 3 

4C91B3 

2401 


JKP 

JB391 


; set parameter Co compiertene operanda 
;sklp nexc Instrucclon 


;set no compiercene of operands 

;store che parameter 

;convert left operanti co lnceger 

;get high byce 

;compiercene If OR 

;save resull 

;get lou byte 

;complement if OR 

;aave resulc 

lecere>Jlj t«c« .1 cijj> il .J1 j teu 
;con»ert righe operand co integer 
;get low byte 
;complemeot if OR 
; AND with left operand 
;compìeaent if OR 
;save result 
;get high byte 
;compleoent lf OR 
;AND with other operand 
;compleoent lf OR 

jconvert integer froo AY co flp accu 
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2403 

;■<-> 

command 



2404 

; 


BOI 6 

2090AD 

2405 

WB016 

JSR SAD90 

BOI 9 

B013 

2406 


BCS BB02E 

B01B 

A56E 

2407 


LDA Z6E 

B01D 

097F 

2408 


ORA $7F 

B01F 

2 56A 

2409 


AND Z6A 

B021 

856A 

2410 


STA Z6A 

B023 

A969 

2411 


LDA <Z69 

B025 

AOOO 

2412 


LDY >Z69 

B027 

205BBC 

2413 


JSR SBC5B 

B02A 

AA 

2414 


TAX 

B02B 

4C61B0 

2415 


JMP JB061 



2416 

1 


B02E 

A900 

2417 

BB02E 

LDA $00 

B030 

850D 

2418 


STA Z0D 

B032 

C64D 

2419 


DEC Z4D 

B034 

20A6B6 

2420 


JSR SB6A6 

B037 

8561 

2421 


STA Z61 

B039 

8662 

2422 


STX Z62 

B03B 

8463 

2423 


STY Z63 

B03D 

A56C 

2424 


LDA Z6C 

B03F 

A46D 

2425 


LDY Z6D 

B041 

20AAB6 

2426 


JSR SB6AA 

BOA 4 

866C 

2427 


STX Z6C 

B046 

846D 

2428 


STY Z6D 

B048 

AA 

2429 


TAX 

B049 

38 

2430 


SEC 

B04A 

E561 

2431 


SBC Z61 

B04C 

F008 

2432 


BEQ BB056 

B04E 

A901 

2433 


LDA $01 

B050 

9004 

2434 


BCC BB056 

B052 

A661 

2435 


LDX Z61 

B054 

A9FF 

2436 


LDA $FF 

B056 

8566 

24 37 

BB056 

STA Z66 

B058 

AOFF. 

2438 


LDY $FF 

B05A 

E8 

2439 


INX 

B05B 

C8 

2440 

BB05B 

1NY 

B05C 

CA 

2441 


DEX 

B05D 

D007 

2442 


BNE BB066 

B05F 

A666 

2443 


LDX Z66 

B061 

300F 

2444 

JB061 

BMI BB072 

B0b3 

18 

2445 


CLC 

BOBA 

900C 

2446 


BCC BB072 

B066 

B16C 

2447 

BB066 LDA <Z6C),Y 

B068 

1)162 

2448 


CMP (Z62),Y 

B06A 

FOEF 

2449 


BEQ BB05B 

B06C 

A2FF 

2450 


LDX $FF 

B06E 

B002 

2451 


BCS BB072 

B070 

A201 

2452 


LDX $01 

B072 

E8 

2453 

BB072 

INX 

B073 

8A 

2454 


TXA 

B074 

2A 

2455 


ROL A 

B075 

2512 

2456 


AND Z12 

B077 

F002 

2457 


BEQ BB07B 

B079 

A9FF 

2458 


LDA $FF 

B07B 

4C3CBC 

2459 

BB07B JMP JBC3C 


; check value of A 

;if strlng, go compare strlngs 

;include slgn bit 

;lnto byte' 1 

;of fraction of second fip eccu 

;set AY to second flp accu 
;compare AY wlth flp accu 
;save result of comparisco 
; check wlth <■> code 


;reset strlng flag 

;also reoove saved strlng flag 

;de-allocate temp. strlng (rlght op) 


;get test pointer of left operand 

;de-allocate temp. strlng (left op) 
;save test pointer 

;save length of left operand 

;compare lengths (left-right) 

;if e qual, A“0 
;set A to 1 

;lf left operand longer, 

;get length of shorter strlng 
;aod set A to -1 
;save slgn of left-rlght 
;set start index loto strings 

;polnt to next character 

;lf more characters, compare 

;if not, restore slgn of left-right 

;set correct C bit 
; JMP 

;get character froo left strlng 
;coopare to character from right strlng 
;lf equal, repeat 

;X “ -1 if character from left hlgher 

;X • 1 if character from left lower 
;X - 0, 1 or 2 for left > - < 

jeonvert to 1, 2 or 4 

;aask wlth <■> code 

;lf zero, result * false (0) 

;lf non-zero, result « true (-1) 

;go get signed # froo A into flp accu 
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2461 command 

2462 ; 


B07E 

20FDAE 

2463 

BB07E 

JSR 

SAEFD 

;SYNTAX Error l£ not **,** 

B081 

AA 

2464 

VB081 

TAX 



B082 

2O9OB0 

2465 


JSR 

SB090 

;gather name and pointer to vartable 

B085 

207900 

2466 


JSR 

X0079 

;get current character 

B088 

D0F4 

2467 


BNE 

BB07E 

;if not end of statement, repeat 

B08A 

60 

2468 


RTS 





2469 

; 






2470 

;get nane 

and pointer to a varlable 



2471 

; 




B08B 

A200 

2472 

5B08B 

LDX 

$00 

;set code for ref, not declaration 

BOBD 

207900 

2473 


JSR 

X0079 

iget current character 

BOTO 

860C 

2474 

SB090 

STX 

ZOC 

;set reference/declaratlon flag 

B092 

8545 

2475 

SB092 

STA 

Z45 

jatore flrat character of Dame 

B094 

207900 

2476 


JSR 

X0079 

;get current character 

B097 

2013B1 

2477 


JSR 

SBU3 

;if not alphabetic 

B09A 

B003 

2478 


BCS 

BB09F 


B09C 

AC08AF 

2479 

BB09C 

JMF 

JAF08 

;then SYNTAX Error message 



2480 

; 




B09F 

A200 

2481 

BB09F 

LDX 

$00 

; set finga 

BOAl 

860D 

2482 


STX 

ZOD 

;to not etrlng 

B0A3 

860E 

2483 


STX 

ZOE 

;and not lnteger 

B0A5 

207300 

2484 


JSR 

X0073 

;get next character 

B0A8 

9005 

2485 


BCC 

BBOAF 

;lf numerlc 

BOAA 

2013B1 

2486 


JSR 

SB113 


BOAD 

9008 

2487 


BCC 

BBOBA 

;or alphabetic 

BOAF 

AA 

2488 

BBOAF 

TAX 


;save second character in X 

BOBO 

207300 

2489 

BBOBO 

JSR 

X0073 

;get next character 

BOB3 

90FB 

2490 


BCC 

BBOBO 

;untll flrat non-numeric character 

BOB 3 

2013B1 

2491 


JSR 

SB113 


BOBS 

B0F6 

2492 


BCS 

BBOBO 

;not alphabetic 

BOBA 

C924 

2493 

SBOBA 

CMF 

'$ 

;if terminator le "$" 

BOBC 

D006 

2494 


BNE 

BB0C4 


BOBE 

A9FF 

2495 


LDA 

$FF 


BOCO 

850D 

2496 


STA 

ZOD 

;then set flag for strlngs 

BOC2 

DOIO 

2497 


BNE 

BB0D4 


BOGA 

C925 

2498 BB0C4 

CMP 

'X 

;if terminator is "X” 

B0C6 

D013 

2499 


BNE 

BBODB 


B0C8 

A510 

2500 


LDA 

ZIO 

;and integers not alloved 

BOGA 

DODO 

2501 


BNE 

BB09C 

;then SYNTAX Error 

BOCC 

A980 

2502 


LDA 

$80 


BOCE 

650E 

2503 


STA 

ZOE 

;elee set lnteger flag and 

BODO 

0545 

2504 


ORA 

Z45 

;add bit 7 to first char of nane 

BOD2 

8545 

2505 


STA 

Z45 


BOBA 

8A 

2506 

BB0D4 

TXA 


;add bit 7 to 2nd char of natte 

BODS 

0980 

2507 


(SIA 

$80 

;for both string and lnteger 

BOD7 

AA 

2508 


TAX 



BODS 

207300 

2509 


JSR 

X0073 

;get next character 

BODB 

8646 

2510 

BBODB 

STX 

Z46 

isave second character nane 

BODD 

38 

2511 


SEC 



BODE 

0510 

2512 


ORA 

ZIO 

;if arrays sllowed 

BOEO 

E928 

2513 


SBC 

'< 

iand next character is *(" 

BOE2 

D003 

2514 


BNE 

BB0E7 


B0E4 

4CD1B1 

2515 


JMF 

JBID1 

ihandle dlaensioaed varlable 



2516 

j 




B0E7 

AOOO 

2517 

BB0E7 

LDY 

$00 


BOE9 

8410 

2518 


STY 

ZIO 

ireset no integers or arrays switch 

BOEB 

A52D 

2519 


LDA 

Z2D 


BOED 

A62E 

2520 


LDX 

Z2E 

;AX*poÌnter to varlable nane table 



BOEF 

8660 

2521 

SBOEF 

STX 

Z60 

B0F1 

855F 

2522 

BB0F1 

STA 

Z5F 

B0F3 

E430 

2523 


CPX 

Z30 

B0F5 

0004 

2524 


BUE 

BBOFB 

B0F7 

C52F 

2525 


CMP 

Z2F 

B0F9 

F022 

2526 


BEQ 

BB11D 

BOFB 

A545 

2527 

BBOFB 

LDA 

Z4S 

BOFD 

D15F 

2528 


CMP 

(Z5F),Y 

BOFF 

0008 

2529 


BUE 

BB109 

B101 

A546 

2530 


LDA 

Z46 

B103 

C8 

2531 


INY 


B104 

D15F 

2532 


CMP 

<Z5F),Y 

E106 

F07O 

2533 


BEQ 

BB185 

B108 

88 

2534 


DEY 


B109 

18 

2535 

BB109 

CLC 


B10A 

A55F 

2536 


EDA 

Z5F 

B10C 

6907 

2537 


ADC 

$07 

BIOS 

90E1 

2538 


BCC 

BB0F1 

B110 

E8 

2539 


IKX 


Bill 

DODO 

2540 


BNE 

SBOEF 



2541 

> 





2542 

;check character in 



2543 

i 





2544 

; return wlth Ol lf 



2545 

: return wlth OO lf 



2546 

» 



B113 

C941 

2547 

SBU3 

CMP 

'A 

B115 

9005 

2548 


BCC 

BBUC 

B117 

E95B 

2549 


SBC 

'Z+l 

B119 

38 

2550 


SEC 


BUA 

E9A5 

2551 


SBC 

$A5 

B11C 

60 

2552 

BBUC RTS 




2553 

» 





2554 

;varlable 

not found 



2555 

; 



B11D 

68 

2556 

BBUD 

PEA 


BUE 

48 

2557 


PHA 


B11F 

C92A 

2558 


CMP 

$2A 

B121 

0005 

2559 


BNE 

BB128 

B123 

A913 

2560 

BB123 

EOA 

$13 

8125 

A0BF 

2561 


EDY 

$BF 

B127 

60 

2562 


RTS 




2563 

* 



B12S 

A545 

2564 

BB128 

LDA 

Z45 

B12A 

A4 46 

2565 


LDY 

Z46 

B12C 

C954 

2566 


CMP 

'T 

B12E 

DOOB 

2567 


BNE 

BB13B 

B130 

COC9 

2568 


CPY 

$C9 

B132 

F0EF 

2569 


BEQ 

BB123 

B134 

C049 

2570 


CPY 

'1 

B136 

0003 

2571 


BNE 

BB13B 

B138 

4C08AF 2572 

BB138 

JMP 

JAF08 



2573 

» 



B13B 

C953 

2574 

BB13B 

CMP 

'S 

B13D 

0004 

2575 


BNE 

BB143 

B13F 

C054 

2576 


CPY 

'T 

B141 

FOFS 

2577 


BEQ 

BB138 

B143 

A52F 

2578 

BB143 

EDA 

Z2F 

BUS 

A4 30 

2579 


EDY 

Z30 

B147 

855F 

2580 


STA 

Z5F 


;if at end of nane table 

;then varlable not found 
;if name matches 

; then varlable found 
jset AX to entry + 7 

;continue search 
A 

elphabetic 

not 

;lf character < "A* 

;return wlth C “ 0 

;lf character > ~Z" then C “ 0 

;else return wlth C-l 

;if low byte of return address ” $2A 
(if calle: from GEI VALUE OF VARIABLE) 

;return wlth AY pointing to 
;a dummy varlable (value 0) 

;lf nane « Tl$ 

;returu wlth dummy value 
;lf name~Tl 

;then SYNTAX Erfbr 

;lf naae»ST 

;tben SYNTAX Error 

;set AY to pointer to end of naae table 
;and save as start of input for nove 
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B149 

8460 

2581 

STY 

Z60 

B14I 

A531 

2582 

LDA 

Z31 

B14D 

A4 32 

2583 

LDY 

Z32 

B14F 

85 5A 

2584 

STA 

Z5A 

B151 

84 SB 

2585 

STY 

Z5B 

B153 

18 

2586 

CLC 


B154 

6907 

2587 

ASC 

$07 

B156 

9001 

2588 

BCC 

BB159 

B158 

C8 

2589 

INY 


B159 

8558 

2590 

BB159 STA 

Z58 

B15B 

8459 

2591 

STY 

Z59 

B15D 

20B8A3 

2592 

JSR 

SA3B8 

B160 

A558 

2593 

ISA 

Z58 

B162 

A4 59 

2594 

LDY 

Z59 

B164 

C8 

2595 

INY 


B165 

852F 

2596 

STA 

Z2F 

B167 

8430 

2597 

STY 

Z30 

B169 

A000 

2598 

LDY 

$00 

B16B 

A545 

2599 

LDA 

Z45 

B16D 

915F 

2600 

STA 

(Z5F),Y 

B16F 

C8 

2601 

INY 


B170 

A546 

2602 

LDA 

Z46 

B172 

915F 

2603 

STA 

(Z5F) ,Y 

B174 

A900 

2604 

LDA 

$00 

B176 

C8 

2605 

INY 


B177 

915F 

2606 

STA 

(Z5F),Y 

B179 

C8 

2607 

INY 


E17a 

915F 

260B 

STA 

«5F),Y 

B17C 

C8 

2609 

INY 


B17D 

915F 

2610 

STA 

(Z5F),Y 

B17F 

C8 

2611 

INY 


B180 

915F 

2612 

STA 

<Z5F),Y 

B182 

C8 

2613 

INY 


B183 

915F 

2614 

STA 

(Z5F),Y 



2615 

1 




2616 

;varlable 

found 



2617 

t 


B185 

A55F 

2618 

BB185 LDA 

Z5F 

B187 

18 

2619 

CLC 


B188 

6902 

2620 

ADC 

$02 

B18A 

A4 60 

2621 

LDY 

Z60 

B18C 

9001 

2622 

BCC 

BB18F 

B18E 

C8 

2623 

INY 


B18F 

8547 

2624 

BBI8F STA 

Z47 

B19i 

8448 

2625 

STY 

Z48 

B193 

60 

2626 

BIS 



;AY”pointer to end of array area 

;add 7 to pointer {or one entry 

;into pointer to end of output {or move 
;check £or space and move bytec 
;AY“beginning o£ output area 
;£or move routine 

;move to pointer to end o{ name table 
» 

; store first byte of name in byte 0 
;atore aecond byte of name in byte i 
;clear byte 2-6 (value) 


;return pointer to entry 
Spina 2 

Sin variable address and AY 
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2628 

; compiate pointer to 

array body 



2629 

» 


B194 

A50B 

2630 

SB194 LDA ZOB 

;get t of dimensione 

B196 

OA 

2631 

ASL A 

;* 2 

B197 

6905 

2632 

ADC $05 

;add fixed overhead 

B199 

655F 

2633 

ADC Z5F 

;add low byte'of array pointer 

B19B 

A460 

2634 

LDY Z60 

;get high byte of array pointer 

B19D 

9001 

2635 

BCC BB1A0 


B19F 

C8 

2636 

INY 

;increment if carry 

B1A0 

8558 

2637 

BB1A0 STA Z58 

;save pointer to body of array 

B1A2 

8459 

2638 

STY Z59 


BL A4 

60 

2639 

RTS 




2640 

> 




2641 

;£lp number for conversino to integer 



2642 

I 


B1A5 

908000 

2643 

TB1A5 .BY $90,$80,$00,$00,$00 



2644 

> 




2645 

;routine to conwert 

floating point number to flxed point 



2646 

» 


B1AA 

20BFB1 

2647 

JSR SB1BF 

;convert flp to flxed point 

B1AD 

A564 

2648 

LDA Z64 


B1AF 

A465 

2649 

LDY Z65 

;return wlth value In AY 

B1B1 

60 

2650 

RTS 




2651 

» 




2652 

jconvert value froo 

statement Into integer 



2653 

9 


B1B2 

207300 

2654 

SB1B2 JSR X0073 

;get next character 

B1B5 

209EAD 

2655 

JSR SAD9E 

;get value from statement 

BIB8 

208DAD 

2656 

SB1B8 JSR SAD8D 

;check for non-atring 

B1BB 

A566 

2657 

LDA Z66 

;if flp accu negative, 

B1BD 

300D 

2658 

BMI BB1CC 

;ILLEGAL QUANTITY Error 



2659 

* 




2660 

;convcrt flp number 

to integer 



2661 

> 


B1BF 

A561 

2662 

SB1BF LDA Z61 

;get exponent 

BICI 

C990 

2663 

CMP $90 

;lf < 16 

B1C3 

9009 

2664 

BCC BB1CE 

;convert 

B1C5 

A9A5 

2665 

LDA <TB1A5 

;let AY point to flp value -32768 

B1C7 

A0B1 

2666 

LDY >TB1A5 


B1C9 

205BBC 

2667 

JSR SBC5B 

; compare AY to flp accu 

B1CC 

D07A 

2668 

BB1CC BUE JB248 

;if not >, ILLEGAL QUANTITY Error 

BICE 

4C9BBC 

2669 

BB1CE JMP SBC9B 

;convert flp accu to 4 byte integer 
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2671 ;get pointer to dlmensloned varleble 



2672 

> 



B1DI A50C 

2673 

JS1D1 

LDA ZOC 

;save reference flag 

B1D3 050E 

2674 


ORA ZOE 

;and lnteger flag 

B1D5 48 

2675 


PHA 


BID6 A50D 

2676 


LDA ZOD 

;save strlng flag 

B1D8 48 

2677 


PBA 


B1D9 A000 

2678 


LDY $00 

Sinltlalize count # of dimensiona 

BIDB 98 

2679 

BB1DB TYA 


B1DC 48 

2680 


FBA 

;save count 

B1DD A546 

2681 


LDA Z46 


B1DF 48 

2682 


PHA 

;save second character of nasse 

B1E0 A545 

2683 


LDA Z45 


B1E2 48 

2684 


PHA 

;save flrst charàcter of nane 

B1E3 20B2B1 

2685 


JSR SB1B2 

;convert vaine from statement to lnteger 

B1E6 68 

2686 


PLA 


B1E7 8545 

2687 


STA Z45 

;restore flrst cbaracter of nsae 

B1E9 68 

2688 


PLA 


B1EA 8546 

2689 


STA Z46 

;restore second character of nane 

81EC 68 

2690 


PLA 


B1ED AB 

2691 


TAY 

jrestore count 

B1EE BA 

2692 


TSX 

;get staek pointer 

B1EF BD0201 

2693 


LDA X0102.X 


B1F2 48 

2694 


PHA 

;sove aaved flags to top of stack 

B1F3 BD0101 

2695 


LDA X0101.X 


B1F6 48 

2696 


PHA 


B1F7 A564 

2697 


LDA Z64 

;aave array Index in thèIr place 

B1F9 9D0201 

2698 


STA X0102.X 


BIFC A565 

2699 


LDA Z65 


B1FE 9D0101 

2700 


STA X0101.X 


B201 C8 

2701 


INY 

;increment dlaenslon pointer 

B202 207900 

2702 


JSR X0079 

;get current character 

B205 C92C 

2703 


CHP 

;if 

B207 F0D2 

2704 


BEQ BB1DB 

;repeat for next array Index 

B209 840B 

2705 


STY ZOB 

;save total number of dlmenslons 

B20B 20F7AE 

2706 


JSR SAEF7 

;aklp ")“ 

B20E 68 

2707 


PLA 


B20F 85OD 

2708 


STA ZOD 

;restore strlng flag 

B211 68 

2709 


PLA 


B212 8SOE 

2710 


STA ZOE 

;restore lnteger flag 

B214 297F 

2711 


AND $7P 


B216 850C 

2712 


STA ZOC 

;and reference flag 

B218 A62F 

2713 


LUX Z2P 


B21A A530 

2714 


LDA Z30 

;AX » pointer to array area 

B21C 865F 

2715 

BB21C 

STX Z5F 

;aave In teaporsry pointer 

B21E 8560 

2716 


STA Z60 

B220 C532 

2717 


CHP Z32 


B222 D004 

2718 


BNE BB228 


B224 E431 

2719 


CPX Z31 

;lf end of array area reached 

B226 F039 

2720 


BEQ BB261 

;then array sot found 

B228 A000 

2721 

BB228 LDY $00 


B22A B15F 

2722 


LDA (Z5F),Y 

;get flrst character of name 

B22C C8 

2723 


INY 


B22D C545 

2724 


CHP Z45 

;lf e<jual 

B22F D006 

2725 


BNE BB237 


B231 A546 

2726 


LDA Z46 


B233 D15F 

2727 


CHP (Z5F),Y 

;and second character of naae also 

B235 F016 

2728 


BEQ BB24D 

;tben array found 

B237 C8 

2729 

BB237 

XHY 


B238 B15F 

2730 


LDA (ZSF),Y 

;get low byte of lengtb 
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B23A 18 

2731 

CLC 

B23B 655F 

2732 

ADC Z5F 

B23D AA 

2733 

TAX 

B23E C8 

2734 

INI 

B23E B15F 

2735 

LDA (Z5F),Y 

B241 6560 

2736 

ADC Z60 

B243 90D7 

2737 

BCC BB21C 

B245 A212 

2738 

BB245 LDX $12 

B247 2C 

2739 

.BY $2C 


2740 

» 

B248 A20E 

2741 

JB248 LDX $0E 

B24A 4C37A4 

2742 

BB24A JKP JA437 

B24D A213 

2743 

BB24D LDX $13 

B24F A50C 

2744 

LDA ZOC 

B251 D0F7 

2745 

BUE BB24A 

B253 2094B1 

2746 

JSR SB194 

B256 A50B 

2747 

LDA ZOB 

B258 A004 

2748 

LDY $04 

B25A D15F 

2749 

CMP (Z5F),Y 

B25C D0E7 

2750 

BUE BB245 

B25E 4CEA82 

2751 

.JMP JB2EA 


;add co array pointer 
;and save result in X 

;get high byte o£ length 

;add to srray pointer 

;repeat if not overflov 

;polnt to BAD SUBSCRIPT Error message 

;skip next lnstruction 

;polnt to XLLEGAL QUANTITY Error message 
;print message 

;point to BAD SUBSCRIPT Error message 

;lf declaration 

;then fatai error 

jcompute pointer to array body 

;lf accusi t of dimensioni; 

;not equal to declared # 

;then error 

;else compute array reference 
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2753 ;allocate array 



2754 ; 


E261 

2094B1 

2755 BB261 

JSR SB194 

B264 

2 00 8A4 

2756 

JSR SA408 

B267 

AOOO 

2757 

U>Y ?00 

B269 

8472 

2758 

STY Z72 

B26B 

A205 

2759 

LDX $05 

B26D 

A545 

2760 

LDA Z45 

B26F 

915F 

2761 

STA (Z5F),Y 

B271 

1001 

2762 

BPL BB274 

B273 

CA 

2763 

DEX 

B274 

C8 

276* BB274 

1KY 

B275 

A546 

2765 

LDA Z46 

B277 

91SF 

2766 

STA (Z5FJ.Y 

B279 

1002 

2767 

BPL BB27D 

B27B 

CA 

2768 

DEX 

B27C 

CA 

2769 

DEX 

B27D 

8671 

2770 BB27D 

STX Z71 

B27F 

A50B 

2771 

LDA Z0B 

B281 

C8 

2772 

INY 

1282 

C8 

2773 

INY 

B283 

C8 

2774 

IKY 

B284 

915F 

2775 

SIA (Z5F),Y 

B286 

A20B 

2776 BB286 

LDX $0B 

B288 

A900 

2777 

LDA $00 . 

B28A 

240C 

2778 

BIT Z0C 

B28C 

5008 

2779 

BVC BB296 

B28E 

68 

2780 

PLA 

B28F 

18 

2781 

CLC 

B290 

6901 

2782 

ADC $01 

B292 

AA 

2783 

TAX 

B293 

68 

2784 

PLA 

B294 

6900 

2785 

ADC $00 

B296 

C8 

2786 BB296 

INY 

B297 

915F 

2787 

STA (Z5F),Y 

B299 

C8 

2788 

INY 

B29A 

SA 

2789 

TXA 

B29B 

915F 

2790 

STA (Z5F),Y 

B29D 

204CB3 

2791 

JSR SB34C 

32 AO 

8671 

2792 

STX Z71 

B2A2 

8572 

2793 

STA Z72 

B2A4 

A422 

2794 

LDY Z22 

B2A6 

C60B 

2795 

DEC Z0B 

B2A8 

DODO 

2796 

BNE BB286 

B2AA 

6559 

2797 

ADC Z59 

B2AC 

B05D 

2798 

BCS BB30B 

B2AE 

8559 

2799 

STA Z59 

B2B0 

A8 

2800 

TAY 

B2B1 

8A 

2801 

TXA 

B2B2 

6558 

2802 

ADC Z58 

B2B4 

9003 

2803 

BCC BB2B9 

B2B6 

C8 

2804 

INY 

B2B7 

F052 

2805 

BEO BB30B 

B2B9 

2008A4 

2806 BB2B9 JSR SA408 

B2BC 

8531 

2807 

STA Z31 

B2BE 

8432 

2808 

STY Z32 

B2C0 

A900 

2809 

LDA $00 

B2C2 

E672 

2810 

INC Z72 

B2C4 

A471 

2811 

LDY Z71 

B2C6 

F005 

2812 

BEQ 8B2CD 


Scomputa pointer to Virtual array body 
;check array area for overflov 


;nove limlt loto next byte of header 


;*ave loto length 
;restore index lato array header 
;decrement # of dimensiona 
;repeat until done 

;add high byte of length to body pointer 
;if. overflov, OUT OF MEMORY Erxor 
;save pointer to end of body 
;also in I 

;add lov byte of length to body pointer 

;if overflov 

;increaeot high byte 

;if overflov, O0T OF MEMORY Error 

;check array area for overflov 


;set nev end of array area 
;get length 

;lf lov byte of length not zero 


;initiallze high byte of length 
;aet length per element 
;get first character of nane 
;into + 0 of array header 
;lf integer 

;adjust length per element 

;move second character of nane 
;lnto t 1 of array header 
;if integer or string 

jcorrect length per element 
;set lnltlal lov byte of length 
;move ♦ of dimensions 


;into + 4 of array header 
;aet default dlmenslon (11) 

;if declaratlon 
jaklp 

;else get limlt fri» stack 
;add 1 for element t 0 
;limlt luto AX 


;lov byte also 
; AX - length * limlt 
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B2C8 88 

2813 

BB2C8 DEY 

B2C9 9158 

2814 

STA (Z58),Y 

B2CB DOFB 

2815 

BNE BB2C8 

B2CD C659 

2816 

BB2CD DEC 259 

B2CF C672 

2817 

DEC Z72 

B2D1 D0F5 

2818 

BNE BB2C8 

B2D3 E659 

2819 

INC Z59 

B2D5 38 

2820 

SEC 

B2D6 A531 

2821 

IDA Z31 

B2D8 E55F 

2822 

SBC Z5F 

B2DA A002 

2823 

LDY $02 

B2DC 915F 

2824 

STA (Z5F),Y 

B2DE A532 

2825 

IDA Z32 

B2E0 C8 

2826 

INY 

B2E1 E560 

2827 

SBC Z60 

B2E3 915F 

2828 

STA (Z5F),Y 

B2E5 A50C 

2829 

IDA Z0C 

B2E7 D062 

2830 

BNE BB34B 

B2E9 C8 

2831 

2832 

2833 

2834 

INY 

> 

; c output e refcrence 

* 

B2EA B15F 

2835 

JB2EA LDA (25F),Y 

B2EC 850B 

2836 

SIA Z0B 

B2EE A900 

2837 

LDA $00 

B2F0 8571 

2838 

STA Z71 

B2F2 8572 

2839 

BB2F2 STA Z72 

B2F4 CB 

2840 

INY 

B2F5 88 

2841 

FLA 

B2F6 AA 

2842 

TAX 

B2F7 6564 

2843 

STA Z64 

B2F9 68 

2844 

FLA 

B2FA 8565 

2845 

STA 26 5 

B2FC D15F 

2846 

CMF (Z5F),Y 

B2FE 900E 

2847 

BCC BB30E 

B300 D006 

2848 

BNE BB308 

B302 C8 

2849 

INI 

B303 8A 

2850 

TXA 

B304 D15F 

2851 

CMF (Z5F),Y 

B306 9007 

2852 

BCC BB30F 

B308 4C45B2 

2853 

BB308 JMF BB245 

B30B 4C35A4 

2854 

2855 

BB30B JMF BA435 

a 

B30É C8 

2856 

BB30E INY 

B30F A572 

2857 

BB30F IDA Z72 

B311 0571 

2858 

ORA 271 

B313 18 

2859 

CLC 

B314 FOOA 

2860 

BEQ BB320 

B316 204CB3 

2861 

JSR SB34C 

B319 SA 

2862 

TXA 

B31A 6564 

2863 

ADC Z64 

B31C AA 

2864 

TAX 

B31D 98 

2865 

TYA 

B31E A422 

2866 

LDY Z22 

B320 6565 

2867 

BB320 ADC Z65 

B322 8671 

2868 

STX Z71 

B324 C60B 

2869 

DEC Z0B 

B326 DOGA 

2870 

BNE BB2F2 

B328 8572 

2871 

STA Z72 

B32A A205 

2872 

LUX $05 


;decrement index 

;store 2 ero in array byte 

;until low byte of length le zero 

;then set pointer to next block of 256 

;and decrement high byte of length 

;repeat until length is zero 


;get addresa of end of array area 
;ainus pointer to array area 

;store lov byte in + 2 of array header 
;nove high byte of difference 


jinto + 3 of array header 
;if declaratlon 
jthen returo 

;else point to declared # of dlmentions 


;get t of dimensione from array header 
;save ic 

jinltialize offset in body 


;get lo» byte of index from stack 

;into X 

;and flp accu 

;get high byte of index froo stack 
;lnto A and flp accu 
;compare index to limit 
;if lower, OK 

;if higher, BAD SUBSCRIPT Error 
;lf equal 


;add low byte of array index to A 


jrestore Index to array header 
;add high byte of array index to A 
; save low byte of nev offset 
;lf not last index, 

;repeat for next index 

;save high byte of offset 

;set length per element for flp t 


to array element 


; compare low bytes 

;if lower, OK 

;else BAD SUBSCRIPT Errar 

;OUT OF MEMORY Error 


;if total index so far « 0 


;skip Dultlplication 
;XY " offset * limit 
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S32C 

A545 

2873 


LDA 

Z45 

B32E 

1001 

2874 


BPL 

BB331 

B330 

CA 

2875 


DEX 


B331 

A546 

2876 

BB331 

LDA 

246 

B333 

1002 

2877 


BPL 

BB337 

B335 

CA 

2878 


DEX 


B336 

CA 

2879 


DEX 


B337 

8628 

2880 

BB337 

STX 

Z28 

B339 

A900 

2881 


LDA $00 

B33B 

2055B3 

2882 


JSR 

SB355 

B33E 

SA 

2883 


TXA 


B33F 

6558 

2884 


ADC 

Z58 

B341 

8547 

2885 


STA 

Z47 

B343 

98 

2886 


TYA 


B344 

6559 

2887 


ADC Z59 

B346 

8548 

2888 


STA 

Z48 

B34B 

A8 

2889 


TAY 


B349 

A547 

2890 


LDA 

Z47 

B34B 

60 
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;if integer 

;correct length per elenent 
;if integer or string 
;correct length per element 

;XY “ offset É length per elementr 

;add to pointer to array body 
jetore result lnto varlable address 

jhigh byte also 

; return vith ÀY m varlable address 
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2893 ;XY - XA - length * 

2894 ; 


B34C 

8422 

2895 SB34C 

STY 

Z22 

B34E 

B15F 

2896 

LDA 

(Z5F),Y 

B350 

8528 

2897 

STA 

Z28 

B352 

88 

2898 

DEY 


B353 

B15F 

2899 

LDA 

(Z5F),Y 

B355 

8529 

2900 SB355 

STA 

Z29 

B357 

A910 

2901 

LDA 

$10 

B359 

855D 

2902 

STA 

Z5D 

B35B 

A200 

2903 

LDX 

$00 

B33D 

AOOO 

2904 

LDY 

$00 

B35F 

8A 

2905 BB35F TXA 


B360 

OA 

2906 

ASL 

A 

B361 

AA 

2907 

TAX 


B362 

98 

2908 

TYA 


8363 

2A 

2909 

ROL 

A 

B364 

AB 

2910 

TAY 


B36S 

B0A4 

2911 

BCS 

BB30B 

B367 

0671 

. 2912 

ASL 

Z71 

B369 

2672 

2913 

ROL 

Z72 

B36B 

900B 

2914 

BCC 

BB378 

B36D 

18 

2915 

CLC 


B36E 

8A 

2916 

TXA 


B36F 

6528 

2917 

ABC 

Z28 

B371 

AA 

2918 

TAX 


B372 

98 

2919 

TYA 


B373 

6529 

2920 

ADC 

Z29 

B37S 

A8 

2921 

TAY 


B376 

B093 

2922 

BCS 

BB30B 

B378 

C65D 

2923 BB378 DEC 

Z5D 

B37A 

D0E3 

2924 

BUE 

BB35F 

B37C 

60 
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limit from array data 

; Bave Index In array beader 
;get lov byte of limit 
;save le 

;get high Byte of llmlt 

;and save it too 

;set # Mts for aultipllcation 

;lnltiallze reault flelds 
;XY * 2 

;if overflow, OUT OF MEMORY Error 
;shlft high hit out of length 
;if set 

;add lov byte of llolt to XY 
;hlgh byte also 

;lf overflov, OOT OF MEMORY Error 
;repeat for all blta of length 
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;lf si.ring flag set 


2927 ;"FRE" coaoand 

2928 ; 

B37D ASOD 2929 WB37D LDA ZOD 

B37F F003 2930 BEQ BB384 

B381 20A6B6 2931 JSR SB6A6 ;de-allocate temporary strlng Storage 

B384 2026B5 2932 BE384 JSR SB526 jperform garbage cleao-up 

B387 38 2933 SEC 

B388 A533 2934 LDA Z33 jcompute difference between 

B38A ESSI 2933 SBC Z31 ;pointer to allocated strlng area 

B38C AE 2936 TAY ;and pointer to end of array area 

B38D A534 2937 LDA Z34 

B38F E532 2938 SBC Z32 ;convert length into flp accu 

2939 ; 

2940 ; routine to convert Integer to floatlng point 

2941 ; 

B391 A200 2942 JB391 LDX $00 

B393 860D 2943 STX ZOD ;clear strlng flag 

B39S 8562 2944 STA Z62 ; sto re Integer from AY luto flp accu 

B397 8463 2945 STY Z63 

B399 A290 2946 LDX $90 ;load exponent (16) 

B39B 4C44BC 2947 JMP JBC44 ; convert to floatlng point J 

2948 ; 

2949 ;"P0S" command 

2950 ; 

B39E 38 2951 WB39E SEC ;set carry to read cursor positlon 

B39F 20F0FF 2952 JSR XFFF0 ;perfona read cursor positlon loto XY 

B3A2 A900 2953 JB3A2 LDA $00 

B3A4 F0EB 2954 BEQ JB391 ;convert Integer lnto flp accu 

2955 ; 

2956 ; check for non-dtrect mode 

2957 ; 

B3A6 A63A 2958 SB3A6 LDX Z3A ;get program/direct flag 

B3A8 E8 2959 INX 

B3A9 D0A0 2960 BNE BB34B ;lf direct, 

B3AB A215 2961 LDX $15 ;point to 1LLEGAL DIRECT Error message 

B3AD 2C 2962 ,BY $2C ;skip next instructioo 

B3AE A21B 2963 BB3AE LDX $1B ;polnt to UNDEF'D FUNCTION Error message 

B3B0 4C37A4 2964 JMP JA437 ;print error 
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;get function name 
; check for non-direct mode 
;next character must be 


2966 j^DEF" command 


B3B3 20E1B3 

2967 

2968 

WB3B3 JSR SB3EL 

B3B6 20A6B3 

2969 

JSR SB3A6 

B3B9 20FAAI 

2970 

JSR SAEFA 

B3BC A980 

2971 

LDA $80 

B3BE 8510 

2972 

SIA ZIO 

B3C0 2O8BB0 

2973 

JSR SB08B 

B3C3 208DAE 

2974 

JSR SAD8D 

B3C6 20F7AE 

2975 

JSR SAEF7 

B3C9 A9B2 

2976 

LDA $B2 

B3CB 20FFAE 

2977 

JSR SAEFF 

B3CE 48 

2978 

PHA 

B3CF A548 

2979 

LDA Z48 

B3D1 48 

2980 

PHA 

B3D2 A547 

2981 

LDA Z47 

B3D4 48 

2982 

PHA 

B3D5 A57B 

2983 

LDA Z7B 

B3D7 48 

2984 

PHA 

B3D8 A57A 

2985 

LDA Z7A 

B3DA 48 

2986 

PHA 

B3DB 20F8A8 

2987 

JSR JA8F8 

B3DE 4C4FB4 

2988 

JMP JB44F 

B3E1 A9A5 

2989 

2990 

2991 

2992 

S 

;get function nane 

SB3E1 LDA $A5 

B3E3 20FFAE 

2993 

JSR SAEFF 

B3E6 0980 

2994 

ORA $80 

B3E8 8510 

2995 

STA ZIO 

B3EA 2092BO 

2996 

JSR SB092 

B3ED B54E 

2997 

STA Z4E 

B3EF 844F 

2998 

STY Z4F 

B3F1 4C8DAD 

2999 

JMP SAD8D 

B3F4 20E1B3 

3000 

3001 

3002 

3003 

* 

;expand FH cali 

JB3F4 JSR SB3E1 

83F7 A54F 

3004 

LDA Z4F 

B3F9 48 

3005 

PHA 

B3FA A54E 

3006 

LDA Z4E 

83FC 48 

3007 

PHA 

B3FD 20F1AE 

3008 

JSR BAEF1 

8400 208DAD 

3009 

JSR SAD8D 

8403 68 

3010 

PLA 

B404 854E 

3011 

STA Z4E 

8406 68 

3012 

PLA 

8407 854F 

3013 

STA Z4F 

8409 A002 

3014 

IDI $02 

B40B 814E 

3015 

LDA (Z4E),Y 

B40D 8547 

3016 

STA Z47 

840F AA 

3017 

TAX 

B410 C8 

3018 

IKK 

8411 BUE 

3019 

LDA (Z4E),T 

B413 F099 

3020 

BEQ BB3AE 

B415 8548 

3021 

STA Z48 

8417 C8 

3022 

INI 

8418 8147 

3023 

BB418 LDA <Z47),I 

841A 48 

3024 

PHA 

8418 88 

3025 

DEI 


;set no incegers/array elements allowed 
;gather carne and get pointer to variable 
;check vaine to be oon-string 
;next value must be ")** 

;next character must be 

;save first character of definition 

;save pointer to variable of function 


;Ìf next character not code for FN 

jthen SYNTAX Error 

;else aet bit 7 of 

;oo integers or array elements flag 

jgather name and get pointer to variable 

;aave pointer to variable 


;get function nane 

;save pointer to name on variable stack 


;get parathenslzed value 
;check that value la non-etring 

;restere pointer to variable name 


;get index to variable 

;save pointer to formai parametera 


;high byte alao 

;if data byte + 3 la zero, fatai error 


;save formai parametera on stack 


; save current character pointer 


;execute command DATA 
;set value for function name 


; check value to be non-atring 
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B41C 

10FA 

3026 


BFL 

BB418 

B41E 

A4 48 

3027 


LDY 

Z48 

B420 

20D4BB 

3028 


JSR 

SBBD4 

B423 

A57B 

3029 


LDA 

Z7B 

B425 

48 

3030 


PHA 


B426 

A57A 

3031 


LDA 

27 A 

B428 

48 

3032 


PHA 


B429 

BUE 

3033 


LDA 

(Z4E),t 

B42B 

857A 

3034 


STA 

Z7a 

B42D 

C8 

3035 


INY 


B42E 

BUE 

3036 


LDA 

(Z4E),Y 

B430 

857B 

3037 


STA 

Z7B 

B432 

A548 

3038 


LDA 

248 

B434 

48 

3039 


PHA 


B435 

A547 

3040 


LDA 

Z47 

B437 

48 

3041 


PHA 


B438 

2G8AAD 

3042 


JSR 

SAD8A 

B43B 

68 

3043 


PLA 


B43C 

854E 

3044 


STA 

Z4E 

B43E 

68 

3045 


PLA 


B43F 

854F 

3046 


STA 

Z4F 

B441 

207900 

3047 


JSR 

X0079 

B444 

F003 

3048 


BEQ 

BB449 

B446 

4C08AF 

3049 


JHP 

JAF08 



3050 

; 



B449 

68 

3051 

BB449 

PLA 


B44A 

8S7A 

3052 


STA 

Z7A 

B44C 

68 

3053 


PLA 


B44D 

857B 

3054 


STA 

Z7B 

B44F 

AOOO 

3055 

JB44F 

LDY 

$00 

B451 

6S 

3056 


PLA 


B452 

914E 

3057 


STA 

(Z4E),Y 

B454 

68 

3058 


PLA 


B455 

C8 

3059 


INI 


B456 

914E 

3060 


STA 

(Z4E),Y 

B458 

68 

3061 


PLA 


B459 

C8 

3062 


INY 


B45A 

914E 

3063 


STA 

(Z4E),Y 

B45C 

68 

3064 


PLA 


B45D 

C8 

3065 


INY 


B45E 

914E 

3066 


STA 

(Z4E),T 

B460 

68 

3067 


PLA 


B461 

C8 

3068 


INY 


B462 

914E 

3069 


STA 

(Z4E),T 

B464 

60 

3070 


RTS 



;get pointer to formai paramecere in XY 
;stote flp ècco into formai parameters 

;save current character pointer on staci 

;move current pointer of deflnition 
;into current character pointer 


;get next non-string value 
jaet pointer to formai parameters 


creatore current character pointer 


;save atack into variable, byte + 0 


;byte + 1 
;byte + 2 
;byte + 3 
;byte + 4 


;get current character 
;lf not zero or 
;SYNTAX Error 


;and rettore formai parameters 
;eet index into variable 


66 



3072 ;”5TR$" comaand 

3073 ; 

B465 208DAD 3074 WB465 JSR SADBD ;check lf pararneter non-strìng 
B468 A000 3075 LDY $00 ; start output: area at $00FF 

B46A 20DFBD 3076 JSR SBDDF ;convert to string 

B46D 68 3077 PLA ; remove own return sddress 

B46E 68 3078 PLA 

B46F A9FF 3079 JB46F LDA $FF ;set AY to polnt to string 

B471 A000 3080 LDY $00 ;on bottom of stack 

B473 F012 3081 BEQ SB487 ;get descrlption of Constant string 

B475 A664 3082 SB475 LDX Z64 ;move pointer to string descrlption 

B477 A465 3083 LDY 265 

B479 8650 3084 STX Z50 ;lnto Z50/Z51 

B47B 8451 3085 STY Z51 

3086 ; 

3087 ;allocate area according to A 

3088 ; 

B470 20F4B4 3089 SB47D JSR SB4F4 ; allocate area 

B480 8662 3090 STX Z62 ; score pointer 

B482 8463 3091 STY Z63 

B484 8561 3092 . STA Z61 ;store length 

B486 60 3093 RTS 
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3095 

;get description of 


3096 

1 


B487 A222 

3097 

SB487 

LDX 

B4B9 8607 

3098 


STX Z07 

B48B 8608 

3099 


SXX Z08 

B48D 856F 

3100 

SB48D 

STA Z6F 

B48F 8470 

3101 


STY Z70 

B491 8562 

3102 


STA Z62 

B493 8463 

3103 


STY Z63 

B495 AOFF 

3104 


IDY $FF 

B497 C8 

3105 

BB497 

INY 

B498 B16F 

3106 


LDA (Z6F),Y 

B49A FOOC 

3107 


BEQ BB4A8 

B49C C507 

3108 


CMP Z07 

B49E F004 

3109 


BEQ BB4A4 

B4A0 C508 

3110 


CHP Z08 

B4A2 D0F3 

3111 


BNE BB497 

B4A4 C922 

3112 

BB4A4 

CMP 

B4A6 F001 

3113 


BEQ BB4A9 

B4A8 18 

3114 

BB4A8 

CLC 

B4A9 8461 

3115 

BB4A9 

STY Z61 

B4AB 98 

3116 


TYA 

B4AC 656F 

3117 


ADC Z6F 

B4AE 8571 

3118 


STA Z71 

B4B0 A670 

3119 


LDX Z70 

B4B2 9001 

3120 


BCC BB4B5 

B4B4 E8 

3121 


INX 

B4b5 8672 

3X22 

BB4BS 

STX Z72 

B4B7 A570 

3123 


LDA Z70 

B4B9 F004 

3124 


BEQ BB4BF 

B4BB C902 

3125 


CMP $02 

B4BD S00B 

3126 


BNE EB4CA 

B4BF 98 

3127 

BB4BF 

TYA 

B4C0 2075B4 

3128 


JSR SB475 

B4C3 A66F 

3129 


LDX Z6F 

B4C5 A470 

3130 


LDY Z70 

B4C7 2088B6 

3131 


JSR SB688 


constane strlng loto flp accu 

;set both termintors 

;store pointer to beginnlng of strlng 
;in temporary pointer 
;8cd in flp accu 

;inltlalize strlng index 

iget next character 
;1 £ zero 

;or flrst terminator, 

;or second terminator, then end found 
;if terminator » quote 

;save lengtb 

;and set pointer beyond strlng 

;if from statement in Direct mode, 

;get length 
; allocate area 

;save pointer to lt 
;move strlng loto it 


68 



3133 ;save descrlptor from Z61-Z63 to descriptor stack 

3134 ; 


BACA A616 

3135 

BB4CA 

LDX 

Z16 

B4CC 

E022 

3136 


CPX 

<Z22 

B4CE 

DQQ5 

3137 


BNE 

BB4D5 

B400 

A219 

3138 


LDX $19 

B4D2 

4C37A4 

3139 

BB4D2 

JMP 

JA437 

B4D5 

A561 

3140 

BB4D5 

LDA Z61 

B4D7 

9500 

3141 


STA 

Z00,X 

B4D9 

A562 

3142 


LDA 

Z62 

B4BB 

9501 

3143 


STA 

Z01.X 

B4DD A563 

3144 


LDA 

263 

B4DF 

9502 

3145 


STA 

Z02.X 

B4E1 

A000 

3146 


LDY $00 

B4E3 

8664 

3147 


STX 

Z64 

B4E5 

8465 

3148 


STY 

Z65 

B4E7 

8470 

3149 


STY 

Z70 

B4E9 

88 

3150 


DET 


B4EA 

840D 

3151 


STY 

ZOD 

B4EC 

8617 

3152 


STX 

Z17 

B4EE E8 

3153 


INX 


B4EF 

E8 

3154 


INX 


B4F0 

E8, 

3155 


INX 


B4F1 

8616 

3156 


STX 

Z16 

B4F3 

60 

3157 


RTS 



;get descriptor stack index 
;if at $22 

;point to FORMULA T00 COMPLEX Error 
Sprint error 
;else nove descriptor 
;to descriptor stack 


;set pointer to descriptor 
;in flp accu 

;elear guard bit 

;set string flag 

;set previous descriptor stack index 


;set new descriptor stack index 
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3159 

;allocate 

# of bytes in A 



3160 

; 




B4F4 

460F 

3161 

SB4F4 

LSR 

ZOF 

Sclear error flag 

MF6 

46 

3162 

BB4F6 

PHA 


;save length 

B4F7 

49 FF 

3163 


EOR 

$FF 


B4F9 

38 

3164 


SEC 



B4FA 

6333 

3165 


ADC 

233 

jsubtract length from strlng Storage ptr 

MFC 

A4 34 

3166 


LDY 

234 


B4FE 

B001 

3167 


BCS 

BB501 


B500 

88 

3168 


DEY 


;high byte also 

B501 

C432 

3169 

BB501 

CPY 

Z32 

;if above 

B503 

9011 

3170 


BCC 

BB516 

;array area 

B505 

DO 04 

3171 


BNE 

BB50B 


B507 

C531 

3172 


CKP 

Z31 


B509 

900B 

3173 


BCC 

BB516 


BSOB 

8533 

3174 

BB50B 

STA 

233 

;set new string Storage pointer 

B50D 

8434 

3175 


STY 

234 


B50F 

8535 

3176 


STA 

Z35 

;set utility string pointer also 

B511 

8436 

3177 


STY 

236 


B513 

AA 

3178 


TAX 


;and aet AX 

B514 

68 

3179 


PLA 


;restore length 

B515 

60 

3180 


RTS 





3181 

» 




B516 

A210 

3182 

BB516 

L0X 

$10 


B518 

A50F 

3183 


IDA 

ZOF 

;if no memory left 

BS1A 

30B6 

3184 


BUI 

BB4D2 

sprint OUT OF MEMORY Error 

B51C 

2026B5 

3185 


JSR 

SB526 

;elae perforo garbage clean-up 

B51F 

A980 

3186 


IDA 

$80 


B521 

850F 

3187 


STA 

ZOF 

idear flag 

B523 

68 

3188 


PLA 


srastore # bytes to allocate 

B52A 

DODO 

3169 


BNE 

BB4F6 

;and perforo allocation 



3190 

S 






3191 

Sstring garbage clean-up 



3192 

t 




B526 

A637 

3193 

SB526 

LDX 

Z37 

Sget memory limit 

BS28 

A538 

3194 


LDA 

238 


B52A 

8633 

3195 

JB52A 

STX 

Z33 

;set new string Storage pointer 

B52C 

8534 

3196 


STA 

234 


B52E 

AOOO 

3197 


1DY 

$00 

;set no deacriptor of hlghest text yet 

B530 

844P 

3198 


STY 

Z4F 


B532 

844E 

3199 


STY 

24E 


ì 534 

AS31 

3200 


LDA 

Z31 

;get end of array area 

BS36 

A632 

3201 


LDX 

Z32 


B538 

855F 

3202 


STA 

Z5F 

;lnltlalize value for hlghest text ptr 

B53A 

8660 

3203 


STX 

Z60 


B53C 

A919 

3204 


LDA 

<219 

; AX » ptr to bottoni of descrlptor atack 

B53E 

A200 

3205 


LDX 

>Z19 


B540 

8522 

3206 


STA 

222 

;and atore in temporary pointer 

B542 

8623 

3207 


STX 

Z23 


B544 

C516 

3208 

BB544 

CMP 

Z16 


B546 

F005 

3209 


BEQ 

BB54D 

;if not top index of descriptor atack 

B548 

20C7B5 

-3210 


JSR 

SB5C7 

;find hlghest text area 

BS4B 

F0F7 

3211 


BEQ 

BB544 


B54D 

A907 

3212 

BB54D 

LDA 

$07 

;set step to 7 

B54F 

8553 

3213 


STA 

253 


B551 

A52D 

3214 


LDA 

Z2D 

;move pointer to nane table 

B553 

A62E 

3215 


LDX 

Z2E 


8555 

8522 

3216 


STA 

Z22 

;lato temporary pointer 

8357 

8623 

3217 


STX 

Z23 


B559 

E430 

3218 

BB559 

CPX 

Z30 
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;lf end of name tabi e 
;not reached yer 

;flnd highest text area 

;save pointer into array area 

; reset step to 3 

;get pointer to next array 

;if end of array area 

;move text area 

;else aave array pointer 

;into temporary pointer 

;save firat character of name 


B55B 

D004 

3219 


BNE 

BB561 

B55D 

C52F 

3220 


CMP 

Z2F 

B55F 

F005 

3221 


BEQ 

BB566 

B561 

20BDB5 

3222 

BB561 

JSR 

SB5BD 

B564 

F0F3 

3223 


BEQ 

BB559 

B566 

8558 

3224 

BB566 

STA 

258 

2568 

8659 

3225 


STX 

Z59 

B56A 

A903 

3226 


EDA 

$03 

B56C 

8553 

3227 


STA 

Z53 

B56E 

A558 

3228 

BB56E 

LDA 

Z58 

B570 

A659 

3229 


LDX 

Z59 

B572 

E432 

3230 

BB572 

CPX 

Z32 

B574 

D007 

3231 


BNE 

BBS7D 

B576 

C531 

3232 


CMP 

Z31 

B578 

D003 

3233 


BNE 

BB57D 

B57À 

4C06B6 

3234 


JMP 

JB606 

B57D 

8522 

3235 

BB57D STA 

Z22 

B57F 

8623 

3236 


STX 

Z23 

B581 

AOOO 

3237 


LDX 

$00 

B583 

B122 

3238 


LDA 

(Z22),? 

B585 

AA 

3239 


TAX 


B586 

C8 

3240 


IN? 


B587 

B122 

3241 


LDA 

(Z22),? 

B589 

08 

3242 


PHP 


ESSA 

C8 

3243 


IN? 


B58B 

B122 

3244 


LDA 

(Z22),? 

B58D 

6558 

3245 


ADC 

Z58 

B58F 

8558 

3246 


STA 

Z58 

BS91 

C8 

3247 


IN? 


B592 

B122 

3248 


LDA 

(Z22),? 

B594 

6559 

3249 


ADC 

Z59 

B596 

8559 

3250 


STA 

Z59 

BS98 

28 

3251 


PLP 


B599 

10D3 

3252 


BPL 

8BS6E 

B59B 

8A 

3253 


TXA 


B59C 

30D0 

3254 


BM1 

BB56E 

B59E 

C8 

3255 


IN? 


B59F 

B122 

3256 


LDA 

(222),? 

BSAl 

AOOO 

3257 


LDI 

$00 

B5A3 

OA 

3258 


ASL 

A 

B5a4 

6905 

3259 


ADC 

$05 

B5A6 

6522 

3260 


ADC 

Z22 

B5A8 

8522 

3261 


STA 

Z22 

B5AA 

9002 

3262 


BCC 

BB5AE 

B5AC 

E623 

3263 


INC 

Z23 

B3AE 

A623 

3264 

BB5AE 

LDX 

Z23 

B5B0 

E459 

3265 BBSB0 era 

Z59 

BSB2 

D004 

3266 


BNE 

BB5B8 

B5B4 

C558 

3267 


CMP 

ZS8 

BSB6 

foba 

3268 


BEQ 

BE572 

B5B8 

20C7B5 

3269 

BB5BS JSR 

SB5C7 

B5BB 

F0F3 

3270 


BEQ 

BB5B0 


;save status of second character of name 
;add leogth of array 
;to array pointer 


;second character of variable name 
;must have bit 7 set for strlng 
;first character of variable name 
;must have bit 7 low for striag 

;get f of dimensions 
;and initialize ? 

;compute offset to first eleoent 


;lf aot pointlng beyond last eleaent 


;fini highest text address 
;aad repeat for next address 


;high byte also 


;point to first eleaent 
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3272 

;check string pointed to by Z22/Z23 




3273 

;as being 

hlghest 

string area outside allocated area 




3274 

* 





B5BD 

B122 

3275 

SB5BD 

LDA 

<Z22),Y 

;if name has bit 7 of first char - 

0 

B5BF 

3035 

3276 


BM1 

BB5F6 



B5C1 

C8 

3277 


INY 




B5C2 

B122 

3278 


LDA 

(Z22),Y 

;and bit 7 of second character » 1 


B5C4 

1030 

3279 


BPL 

BB5F6 



B5C6 

C8 

3280 


INY 


;drop thru 




3281 

; 







3282 

;check string indexed by descriptor 




3283 

;for being hlghest 

string area 




3284 

;out?ide of allocated area 




3285 

» 





B5C7 

B122 

3286 

SB5C7 

LDA 

(222),Y 

;lf length - 0 


B5C9 

F02B 

3287 


BEQ 

BB5F6 

;then no text area 


B5CB 

C8 

3288 


INY 




BSCC 

B122 

3289 


LDA 

(Z22),Y 



B5CE 

AA 

3290 


TAX 


;get pointer to text lato AX 


B5CF 

C8 

3291 


INY 




B5D0 

B122 

3292 


LDA 

(Z22),Y 



B5D2 

C534 

3293 


CMP 

Z34 

;if pointer ls 


B5D4 

9006 

3294 


BCC 

BB5DC 

; above string Storage area 


B5D6 

D01E 

3295 


BUE 

BB5F6 



B5D8 

E433 

3296 


CPX 

Z33 



B5DA 

BOIA 

3297 


BCS 

BB5F6 

;then string is net hlghest 


B5DC 

C560 

3298 

BB5DC 

CMP 

Z60 

;if pointer is 


B5DE 

9016 

3299 


BCC 

BB5F6 

;belov previous hlghest 


B5E0 

D004 

3300 


BNE 

BE5E6 



B5E2 

E45F 

3301 


CPX 

Z5F 



B5E4 

9010 

3302 


BCC 

BB5F6 

;then not hlghest 


B5E6 

86 5F 

3303 

BB5E6 

STX 

Z5F 



BSeB 

8560 

3304 


STA 

Z60 

;save pointer to oew highest 


B5EA 

A522 

3305 


LDA 

Z22 



B5EC 

A623 

3306 


LDX 

Z23 

;get pointer to varlable or descriptor 

B5EE 

854E 

3307 


STA 

Z4E 



B5FO 

864F 

3308 


STX 

Z4F 

;save pointer to vinner 


BSF2 

A553 

3309 


LDA 

Z53 

;save step 6ize of winner 


B5F4 

8555 

3310 


STA 

Z55 



B5F6 

A553 

3311 

BB5F6 

LDA 

Z53 

;add etep 


BSF8 

18 

3312 


CLC 




B5F9 

6522 

3313 


ADC 

Z22 

;to variable or descriptor pointer 


B5FB 

8522 

3314 


STA 

Z22 



B5FD 

9002 

3315 


BCC 

BB601 



B5FF 

E623 

3316 


INC 

Z23 



B601 

A623 

3317 

BB601 

LDX 

Z23 

;varlable or descriptor pointer in 

AX 

B603 

AOOO 

3318 


LDY 

$00 



B605 

60 

3319 


KTS 
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3321 ;continuation of string garbage clean-up 

3322 ; 


B606 

A54F 

3323 

JB606 LDA 

Z4F 

B608 

054E 

3324 

ORA 

Z4E 

B60A 

F0F5 

3325 

BEQ 

BB601 

B60C 

A555 

3326 

LDA 

255 

B60E 

2904 

3327 

AND 

$04 

B610 

4A 

3328 

LSR 

A 

Bèll 

A8 

3329 

TAY 


B612 

8555 

3330 

STA 

255 

B614 

B14E 

3331 

LDA 

(Z4E),Y 

B616 

655F 

3332 

ADC 

Z5F 

B618 

855A 

3333 

STA 

Z5A 

B61A 

A560 

3334 

LDA 

Z60 

B61C 

6900 

3335 

ADC 

$00 

B61E 

855B 

3336 

STA 

Z5B 

B620 

A533 

3337 

LDA 

Z33 

B622 

A634 

3338 

LDX 

Z34 

B624 

8558 

3339 

STA 

Z58 

B626 

8659 

3340 

STX 

Z59 

8628 

20BFA3 3341 

3SR 

SA3BF 

B62B 

A455 

3342 

LDY 

Z5S 

B62D 

C8 

3343 

INY 


B62E 

A558 

3344 

LDA 

Z56 

B630 

914E 

3345 

STA 

(Z4E),Y 

B632 

AA 

3346 

TAX 


B633 

E659 

3347 

INC 

Z59 

B63S 

A559 

3348 

LDA 

Z59 

B637 

C8 

3349 

INY 


B638 

914E 

3350 

STA 

(Z4E),Y 

B63A 

4C2AB5 

3351 

JMP 

JB52A 


;1£ no pointer to descrlptor 
;of hlghest string yet, 

; return 

jcoapute offset to descrlptor 


;get length of test 
;add to pointer to beginning of text 
;store in high llmit for nove routine 
;hlgh bytes also 


i»ovc current string Storage pointer 
;lnto high llmlt of output for nove 
;nove bytes 

;get offset to descrlptor 


;let descrlptor point to moved text area 


;hlgh byte also 
jrepeat for next string 
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3353 

;dladic operator **■ 


3354 

p 

B63D A565 

3355 JB63D LDA 265 

B63F 48 

3356 

PHA 

B640 A564 

3357 

LDA 264 

B642 48 

3358 

PHA 

B643 2083AE 

3359 

JSR SAE83 

B646 208FAD 

3360 

JSR SAD8E 

B649 68 

3361 

PLA 

B64a 856F 

3362 

STA 26F 

B64C 68 

3363 

PLA 

B64D 8570 

3364 

STA 270 

B64F A000 

3365 

LDY $00 

B651 B16F 

3366 

LDA (Z6FJ.Y 

B653 18 

3367 

CLC 

B654 7164 

3368 

ADC (264),Y 

B656 9005 

3369 

BCC BB65D 

B658 A217 

3370 

LDY $17 

B65A 4C37A4 

3371 

JKP JA437 


3372 

» 

B65D 2075B4 

3373 

BB65D JSR SB475 

B660 207AB6 

3374 

JSR SB67A 

B663 A550 

3375 

LDA Z50 

B665 A451 

3376 

LDY 251 

B667 UCCi.' 

;uc 

JSR SB6AA 

B66A 208CB6 

3378 

JSR SB68C 

B66D A56F 

3379 

LDA Z6F 

B66F A4 70 

3380 

LDY Z70 

B671 20AAB6 

3381 

JSR SB6AA 

B674 20CAB4 

3382 

JSR BB4CA 

B677 4CB8AD 

3383 

JHP JADB8 


{or stringa 


;save pointer to left operand 


;get value of next operand in flp accu 
;nust be atring 


;reetore tenporary atring addreas 

;get length of left operand 

;add length of right operand 
;if -> 256 

;point to STRING T00 LONG Error 
;prlnt error 

;allocate area for sua of lengths 
;mcrvp left operand 

;get descriptor of right operand 
;de-allocate old area 
;move right operand 


;de-alloeate old area 

;save descriptor on staci 

;go back to expresslon evaluatlon 
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3385 

;move 

string vlth descriptor pointed by 26F/Z70 



3386 

;into 

lese allocated area 



3387 

• 



B67A 

AOOO 

3388 

SB67A 

LDY soo 


B67C 

B16F 

3389 


LDA (26F),V 


B67E 

48 

3390 


PHA 

; save length from descriptor 

B67F 

C8 

3391 


INY 

B680 

B16F 

3392 


LDA (Z6F),Y 


B682 

AA 

3393 


TAX 

; pointer from descriptor 

B683 

C8 

3394 


INY 


B684 

B16F 

3395 


LDA (Z6F),Y 


B686 

A8 

3396 


TAY 

;into XY 

B687 

68 

3397 


FLA 

;length into A 



3398 

> 





3399 

;nove 

string wlth 

length in A, pointer in XY 



3400 

; into 

last allocated area 



3401 

» 



B688 

8622 

3402 

SB688 

STX 222 

;save pointer in teoporary pointer area 

B68A 

8423 

3403 


STY Z23 


B68C 

A8 

3404 

SB68C 

TAF 

;if length “ 0 

B68D 

FOOA 

3405 


.BEQ BB699 

;don't nove 

B68F 

48 

3406 


PHA 

;save length 

B690 

88 

3407 

BB690 

DEY 

;for every character 

B691 

B122 

3408 


LDA (Z22),Y 

;aove from string 

B693 

9135 

3409 


STA (235),Y 

;to last allocated area 

B695 

98 

3410 


TYA 


B696 

D0F8 

3411 


BUE BB690 

;until no more characters 

B698 

68 

3412 


PLA 

;restore length 

B699 

18 

3413 

BB699 

CLC 

;set Z35/Z36 to end of allocated area 

B69A 

6535 

3414 


ADC Z35 


B69C 

8535 

3415 


STA Z35 


B69E 

9002 

3416 


BCC BB6A2 


B6A0 

E636 

3417 


INC Z36 


B6A2 

60 

3418 

BB6A2 

RTS 
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3420 

;de-allocate a temporary etring 


3421 

» 


B6A3 208 PAD 3422 

SB6A3 JSR SADSF 

;check If vaine le a strlng 

B6A6 ASM 

3423 

5B6A6 ODA 264 


B6A8 A465 

3424 

LDY 265 

;set AY to pointer to descriptor 

B6AA 8S22 

3425 

SB6AA STA 222 

;and store In temporary pointer 

B6AC 8423 

3426 

STY Z23 


B6AE 20DBB6 

3427 

JSR SB6DB 

; check descriptor stack 

B6B1 08 

3428 

PHP 

;tave status (Z“l vhen desc on stack) 

B6B2 A000 

3429 

LDY $00 


B6B4 B122 

3430 

LDA (Z22),Y 


B6B6 48 

3431 

PHA 

;aave strlng length 

B6B7 C8 

3432 

lire 


B6BB B122 

3433 

EOA (Z22),Y 


B6BA AA 

3434 

TAX 

;pointer to strlng In XY 

B6BB C8 

3435 

1HY 


B6BC B122 

3436 

LDA <Z22),Y 


B6BE AB 

3437 

TAY 


B6BF 68 

3438 

FLA 

;strlng length luto A 

B6C0 28 

3439 

FLF 

jrestore status 

B6C1 0013 

3440 

BNE BB6D6 

ibranch if descriptor on stack 

B6C3 C434 

3441 

CFY 234 

;lf pointer to strlng 

B6C5 DOOF 

3442 

BNE BB6D6 


B6C7 E433 

3443 

CPX 233 

;• strlng Storage pointer . 

B6C9 DOOB 

3444 

BNE BB6D6 


B6CB 48 

3445 

PHA 

;save length 

B6CC 18 

3446 

CLC 


B6CD 6533 

3447 

ADC 233 

;add length to strlng Storage pointer 

B6CF 8533 

3448 

STA 233 

;to fora new strlng storsgs pointer 

B6D1 9002 

3449 

BCC BB6D5 

;(de-allocstes strlng) 

B6D3 E634 

3450 

INC 234 


B6DS 68 

3451 

BB6D5 FLA 

;restore length 

B6D6 8622 

3452 

BB606 STX 222 

;ssve pointer to strlng 

B6D8 8423 

3453 

STT 223 


B6DA 60 

3454 

RTS 



3455 

• 



3456 

;check descriptor stack 


3457 

» 


B6DB C418 

3458 

SB60B CFY 218 


B6DD DOOC 

3459 

BNE BB6EB 

;lf descriptor pointer 

B6DF C517 

3460 

CMP Z17 

;saae ss prevlous descriptor stack ptx 

B6E1 0008 

3461 

BNE BB6EB 


B6E3 8516 

3462 

STA Z16 

;then set descriptor stack Index 

B6E5 E903 

3463 

SBC $03 

;to polnt to lt 

B6E7 8517 

3464 

STA Z17 

;set prevlous descriptor Index belou lt 

B6E9 aooo 

3465 

LDT $00 

;leave new descriptor pointer In AY 

B6EB 60 

9466 BBfiEB *TS 
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3468 ;"CHR$" command 




3469 

9 



B6EC 

20A1B7 

3470 

WB6EC 

JSR 

SB7A1 

B6EF 

8A 

3471 


TXA 


B6F0 

48 

3472 


PHA 


B6F1 

A901 

3473 


LDA 

SOI 

B6F3 

207DB4 

3474 


JSR 

SB47D 

B6F6 

68 

3475 


PLA 


B6F7 

AOOO 

3476 


LDY 

$00 

B6F9 

9162 

3477 


STA 

(Z62),Y 

B6FB 

68 

3478 


PLA 


B6FC 

68 

3479 


PLA 


B6FD 

4CCAB4 

3480 


JMP 

BB4CA 



3481 

» 





3482 

;~LEFT$~ command 



3483 

j 



B700 

2061B7 

3484 

WB700 

JSR 

SB761 

B703 

DI 50 

3485 


CMP 

CZ50),Y 

B705 

98 

3486 


TYA 


B706 

9004 

3487 

JB706 

BCC 

BB70C 

B708 

B1S0 

3488 


LDA 

(Z50),Y 

B70A 

AA 

3489 


TAX 

B70B 

98 

3490 


TYA 


B70C 

48 

3491 

BB70C 

PHA 


B70D 

8A 

3492 

BB70D 

TXA 


B70E 

48 

3493 

BB70E 

PHA 


B70F 

207DB4 

3494 


JSR 

SB47D 

B712 

A550 

3495 


LDA 

Z50 

B714 

A451 

3496 


LDY 

Z51 

B716 

20AAB6 

3497 


JSR 

SB6AA 

B719 

68 

3498 


PLA 


B71A 

A8 

3499 


TAY 


B71B 

68 

3500 


PLA 


B71C 

18 

3501 


CLC 


B71D 

6522 

3502 


ADC 

Z22 

B71F 

8522 

3503 


STA 

Z22 

B721 

9002 

3504 


BCC 

BB725 

B723 

E623 

.3505 


INC 

Z23 

B725 

98 

3506 

BB725 

TYA 


B726 

208CB6 

3507 


JSR 

SB68C 

B729 

4CCAB4 

3508 


JMP 

BB4CA 



3509 

1 





3510 

;"RIGHT$” 

command 



3511 

f 



B72C 

2061B7 

3512 

WE72C 

JSR 

SB761 

B72F 

18 

3513 


CLC 


B730 

F150 

3514 


SBC 

(Z50) ,Y 

B732 

49FF 

3515 


EOR 

$FF 

B734 

4C06B7 

3516 


JMP 

JB706 


;get integer paramenter iato X 

;and save 
;set length 
; allocate area 
;restore Integer 

;save character in ellocated area 

jremove own return address 

;save deecriptor on deecriptor stack 


;get 2 paraneters 

;compare length wanted to stack Xength 

;A - initial index in text 

;lf Xength requested >» string length 

;uee string length lnstead 

;save initial index 
;get length wanted 
;and save it 
;de-allocate area 

;set AY to point to firet parameter 
;de-allocate temporary string 
jrestore length requested 

; nestore initial index in text 

;add to text pointer 


;for length requested, 

;move string loto allocated area 
;save descriptor on deecriptor stack 


;get 2 parameters 
; computa length - length requested 
;go do tali end of LEFT? 
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B737 A9FF 

3518 ;"MID$" comnand 

3519 ; 

3520 WB737 LDA $FF 

;eet default 3rd parameter to 255 

B739 8565 

3521 

STA Z65 


B73B 207900 

3522 

JSR X0079 

;get current character 

B73E C929 

3523 

CHP ') 

;lf not “)“ 

8740 F006 

3524 

BEQ BB748 


B742 20FDAE 

3525 

JSR SAEFD 

jffluBt be 

B745 209EB7 

3526 

JSR SB79E 

rcxt jcic^is 

B748 2061B7 

3527 

BB748 JSR SB761 

;get flrat 2 parameter» 

B74B F04B 

3528 

BEQ BB798 

;lf 2nd parameter * 0, ILLEGAL QUANTITÀ 

B74D CA 

3529 

DEI 

;decrement index 

B74E 8A 

3530 

TXA 


B74F 48 

3531 

PBA 

;and Bave it on stacVt 

B750 18 

3532 

CLC 


B751 A200 

3533 

U)X $00 


B753 F150 

3534 

SBC <Z50),I 

jcompute index ~ length 

B755 B0B6 

3535 

BCS BB70D 

;if lergec, get nuli strlng 

B757 49FF 

3536 

EOE $FF 

;if # characterB remalaing 

B759 C565 

3537 

CMF Z65 


B75B 90BI 

3538 

BCC BB70E 

;less than 3rd parameter t 

B75D A565 

3539 

LDA Z65 

;take # of characters remaining instead 

B75F BOAD 

3540 

BCS BB70E 

;do tali end of LEFT$ 


3541 

3542 

» 

;get first two praneters for LEFT$, RIGHT$ and MID$ 

B761 20F7AE 

3543 

3544 

SB761 JSR SAEF7 

;next character must be ")" 

B764 68 

3545 

PLA 


B765 A 6 

:n( 

173 

v^ave return address 

B766 68 

3547 

PLA 


B767 8555 

3548 

STA Z55 


B769 68 

3549 

PLA 

;remove return address 

B76A 68 

3550 

PLA 


B76B 68 

3551 

PLA 

;restore 2nd parameter (icteger) 

B76C AA 

3552 

TAX 


B76D 68 

3553 

PLA 


B76E 8550 

3554 

STA Z50 

;move lst parameter (ptr to descriptor) 

B770 68 

3555 

PLA 

;lnto Z50/Z51 

B771 8551 

3556 

STA Z51 


B773 A555 

3557 

LDA Z55 


B775 48 

3558 

PBA 

;Testore return address 

B776 98 

3559 

TYA 


B777 48 

3560 

PBA 


B778 AOOO 

3561 

LDY $00 


B77A 8A 

3562 

TXA 

;set flags according to 2nd parameter 

. B77B 60 

3563 

BIS- 



76 




3565 

;"LEN$“ conaand 


3566 

• 

B77C 2082B7 

3567 

WB77C JSR SB782 

B77F 4CA2B3 

3568 

JHP JB3A2 


3569 

s 

B782 20A3B6 

3570 

SB782 JSR SB6A3 

B785 A200 

3571 

LDX $00 

B787 860D 

3572 

STX ZOO 

B789 A8 

3573 

TAY 

B78A 60 

3574 

RTS 


3575 

> 


3576 

; "ASC$~ canraand 


3577 

» 

B78B 2082B7 

3578 

WB78B JSR SB782 

B78E F008 

3579 

BEQ BB798 

B790 AOOO 

3580 

LDY $00 

B792 B122 

3581 

IDA (Z22),Y 

B794 A8 

3582 

TAY 

B795 4CA2B3 

3583 

JHP JB3A2 


3584 

» 

B798 4C48B2 3585 

BB798 JHP JB248 


3586 

> 


;de-allocate paraoeter, get length In Y 
jconvert integer in Y to flp 

;de-allocate teap string (paraaeter) 

;reset string flag 
;move length to Y 


;de~allocate paraaeter, get length in Y 
;lf nuli string, ILLEGAL QUANT1TY Error 

;get first character of string 
;aove into Y 

;convert integer in Y to flp 
; print error 


3587 ;fetch integer value in X and check range 

3588 ; 

B79B 207300 3589 SB79B JSR X0073 ;get next character 

B79E 208AAD 3590 SB79E JSR SAD8A ;get next non—string value 

B7A1 20B8B1 3591 SB7A1 JSR SB1B8 ;convert positive flp accn to integer 

B7A4 A664 3592 IDE Z64 ;if not in range 0 - 255 

B7A6 DOFO 3593 BUE BB798 ;print error ILLEGAL QUAHTITY 

B7A8 A665 3594 LDX Z65 ;load value into X 

B7AA 4C7900 3595 JMP X0079 ;get current character agaln and return 
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3597 

;"VAL" command 




3598 

» 



B7AD 

2082B7 

3599 

WB7AD JSR 

SB782 

;de-allocate pararneter, get length In Y 

87B0 

D003 

3600 

BNE 

BB7B5 

;lf length zero, 

B7B2 

4CF7B8 

3601 

JMP 

JB8F7 

;set result zero 

B7B5 

A67A 

3602 

BB7B5 LDX 

Z7À 

;move current character pointer 

B7B7 

A47B 

3603 

LDY 

Z7B 


B7B9 

8671 

3604 

STX 

Z71 

;to teoporary pointer 

B7BB 8472 

3605 

sty 

Z72 


B7BD 

A622 

3606 

LDX 

Z22 

;move low byte of text pointer 

B7BF 

867A 

3607 

STX 

Z7A 

;lnto current character pointer 

B7C1 

18 

3608 

eie 



B7C2 

6522 

3609 

ADC 

Z22 

;add length 

B7C4 

8524 

3610 

STA 

Z24 

;to create pointer to end of striug 

B7C6 

A623 

3611 

LDX 

Z23 

;move high byte of text pointer 

B7C8 

867B 

3612 

STX 

Z7B 

;into high byte of current character ptr 

B7CA 9001 

3613 

tee 

BB7CD 


B7CC E8 

3614 

1SX 


;add carry of length 

B7CD 

8625 

3615 

BB7CD STX 

Z25 

;set high byte of ptr to end of strlng 

B7CF A000 

3616 

LDY 

$00 


B7D1 

B124 

3617 

LDA 

(Z24).Y 

;get first byte beyond strlng 

B7d3 

48 

3618 

PHA 

* 

;and cave lt on stack 

B7D4 

98 

3619 

TYA 



E7D5 

9124 

3620 

STA 

(Z24),Y 

;set nuli lnstead 

B7D? 

207900 

3621 

JSR 

X0079 

;get current character 

B7DA 20F3BC 3622 

JSR 

SBCF3 

;convert strlng to flp 

B7DD 68 

3623 

PLA 


;restore first byte beyond strlng 

B7DE AOOO 

3624 

LDY 

$00 


B7E0 

9124 

3625 

STA 

(Z24),Y 

;and restore 

B7E2 

A671 

3626 

SB7E2 LDX 

Z71 

;get new value for current character ptr 

B7E4 

A472 

3627 

LDY 

Z72 


B7E6 

867A 

3628 

STX 

Z7A 

;and store it as current character ptr 

B7E8 

847B 

3629 

STY 

Z7B 


B7EA 60 

3630 

RTS 





3631 

j 





3632 

;get address lato Z14/Z15 and integer lato X 



3633 

» 



B7EB 

208AAD 

3634 

SB7EB JSR SAD8A 

;get non-string vaine fro» statement 

B7EE 

20F7B7 

3635 

JSR SB7F7 

jcouvert flp accu to integer at ZL4/Z15 

B7F1 

20FDAE 

3636 

SB7F1 JSR 

SAEFD 

;next character must be 

B7F4 

4C9EB7 

3637 

JHP SB79E 

;get next integer from statement loto X 
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point loto integer in Z14/Z15 
;if negative 


3639 ;converc floating 

3640 ; 


E7F7 

A566 

3641 

SB7F7 

LDA 

Z66 

B7F9 

309D 

3642 


BM1 

BB798 

B7FB 

A561 

364 3 


LDA 

Z61 

B7FD 

C991 

3644 


CMP 

$91 

B7FF 

B097 

3645 


BCS 

BB798 

B801 

209BBC 

3646 


JSR 

SBC9B 

B804 

A564 

3647 


LDA 

Z64 

B806 

A465 

3648 


LDY 

Z65 

B808 

8414 

3649 


STY 

Z14 

B80A 

8515 

3650 


STA 

Z15 

B80C 

60 

3651 


RTS 




3652 

» 





3653 

;"PEEK" command 



3654 

; 



B8QD 

A515 

3655 

VB80D 

LDA 

Z15 

B80F 

48 

3656 


PHA 


B810 

A514 

3657 


LDA 

Z14 

B812 

48 

3658 


PUA 


B813 

20F7B7 

3659 


JSR 

SB7F7 

B816 

A000 

3660 


LDY 

$00 

B818 

B114 

3661 


LDA 

(Z14>,Y 

B81A 

A8 

3662 


TAY 


B81B 

68 

3663 


PLA 


B61C 

8514 

3664 


STA 

Z14 

B81E 

66 

3665 


PLA 


B81F 

8515 

3666 


STA 

Z15 

B821 

4CA2B3 

3667 


JUP 

JB3A2 r- 



3668 

» 





3669 

;-P0K£" coamand 



3670 

; 



B824 

20EBB7 

3671 

WB824 

JSR 

SB7EB 

B827 

8A 

3672 


TXA 


BB28 

A000 

3673 


LDY 

$00 

B82A 

9114 

3674 


STA 

(214),Y 

B82C 

60 

3675 


RTS 



jor exponent > 16 

;then ILLESAL QUANT1TY Error 

;convert flp accu to integer at Z64/Z65 


;save contenta of Z14/Z15 

;convert flp accu to integer in Z14/Z15 


;get addresE in Z14/Z15, integer in X 
;oove integer froo X to address 


;and into result field 


;get byte 

;and save in Y 

; then restore Z14/Z15 


;convert integer in I to flp 
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3677 ;“WAIT" command 

3678 ; 

B82D 20EBB7 3679 WB82D JSR SB7EB ;get address in Z14/Z15, lnteger la X 

B830 8649 3680 STX Z49 ;save mask 

B832 A200 3681 LDX $00 jdefault patterà - 00 

B834 207900 3682 JSR X0079 ;get current character 

B837 F003 3683 BEQ BB83C ;lf not end of statement 

B839 20F1B7 3684 JSR SB7F1 ;get next lnteger froa statement lato X 

B83C 864A 3685 BB83C STX Z4A ;save pattern 

B83E A000 3686 LDX $00 

B840 B114 3687 BB840 LDA (Z14),Y ;get byte 

B842 454A 3688 EOR Z4A -.Exeluelve OR wlth pattern 

B844 2549 3689 AND Z49 ;naak 

B846 F0F8 3690 BEQ BB840 jrepeac untll non-zero 

B848 60 3691 BB848 RTS 

3692 ; 

3693 ;add 0.5 to flp acca (half roundìng) 

3694 ; 

B849 A911 3695 SB849 LDA <TBF11 

B84B A0BF 3696 LDY >TBFll ;set AY to point to value 0.5 

B84D 4C67B8 3697 JHF SB867 ;add to flp accu 

3698 ; 

3699 ;"MINUS“ operator 

3700 ; 

B850 208CBA 3701 SB850 JSR SBA8C jsubtrect flp accu froo # lndexed by AY 

3702 ; 

3703 ;dladlc operator 

3704 ; 

>853 A566 3705 WB853 LDA Z66 

B855 49FF 3706 EOR $FF ;compleaent alga 

B857 8566 3707 STA Z66 

B859 456E 3708 EOR Z6E 

B85B 6S6F 3709 STA Z6F ;also adjust Exeluslve OR of both signs 

B85D A561 3710 LDA Z61 ;fetch exponent of flp accu 

B85F 4C6AB8 3711 JMP JB86A ;go apply dladic operatot 
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B862 

2099B9 

3713 

BB862 JSR 

SB999 

B865 

903C 

3714 

BCC 

BB8A3 



3715 

5 




3716 

;add flp # indexed 



3717 

; 


B867 

208CBA 

3718 

SB867 JSR 

SBA8C 



3719 

» 




3720 

; "PUJS' operator 



3721 

; 


B86A 


3722 

WB86A - 

* 

B86A 

D003 

3723 

JB86A BNE 

BB86F 

B86C 

4CFCBB 

3724 

JMP 

SBBFC 



3725 

» 


B86F 

A670 

3726 

BB86F LDX 

270 

B871 

8656 

3727 

SIX 

Z56 

B873 

A269 

3728 

LDX 

$69 

B875 

A569 

3729 

LDA 

269 

B877 

A8 

3730 

SB877 IAY 


B878 

FOCE 

3731 

BEQ 

BB848 

B87A 

38 

3732 

SEC 


B87B 

E561 

3733 

SBC 

Z61 

B87D 

F024 

3734 

BEQ 

BB8A3 

B87F 

9012 

3735 

BCC 

BB893 

B881 

8461 

3736 

STY 

Z61 

B883 

A46E 

3737 

LDY 

Z6E 

B885 

8466 

3738 

STY 

Z66 

B887 

49FF 

3739 

EOK 

$FF 

B889 

6900 

3740 

ADC 

$00 

B88B 

AOOO 

3741 

LDY 

$00 

B8BD 

8456 

3742 

STY 

Z56 

B88F 

A261 

3743 

LDX 

$61 

B891 

D004 

3744 

BNE 

BB897 

B893 

AOOO 

3745 

BB893 LDY 

$00 

B895 

8470 

3746 

STY 

270 

B897 

C9F9 

3747 

BB897 CMP 

$F9 

B899 

30C7 

3748 

BMI 

EB862 

B89B 

AS 

3749 

TAY 


B89C 

A570 

3750 

LDA 

Z70 

B89B 

5601 

3751 

LSR 

Z01.X 

B8A0 

20B0B9 

3752 

JSR 

SB9B0 

B8A3 

246F 

3753 BB8A3 BIX 

Z6F 

B8A5 

1057 

3754 

BPL 

BB8FE 


;perforai preshifte accordine to A 
;do addition or subtractìon 

by AY to flp seco 

;perform addition 


;if flp accu - 0 

;move 2nd flp accu lnto flp accu 

save guard bit 

;X " pointer to snaller 
jget exponent of 2nd flp accu 
;if zero 

;result already In flp accu 

; computa differente in exponents 
;if zero, go act on fractlons 
;tf second flp accu higher 
;sec exponent of result 
;and alga of result 


;two's coaplement of difference 

; set guard bit to 0 for higher 
;point to smaller 

;lf second flp accu lover 
;move 0 to guard bit of lower 
;if difference more than 8 
;do preshlfts 
;save number of preshlfts 
;get guard bit 
; pad vriLth zero 
;do preshlfts 

;if both slgns are thè sane 
;add fractlons 
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3756 ;negate flp acce 




3757 

; 



BBA7 

A061 

3758 


LDY 

$61 

B8A9 

E069 

3759 


CPX 

$69 

B6AB 

F002 

3760 


BEQ 

BB8AF 

B8AD 

A069 

3761 


LDY 

$69 

B8AF 

38 

3762 

BB8AF 

SEC 


B8B0 

49FF 

3763 


EOE 

$FF 

B8B2 

6556 

3764 


ADC 

256 

B8B4 

8570 

3765 


STA 

ZIO 

B8B6 

B90400 

3766 


LDA 

Z04.Y 

B8B9 

F5Ó4 

3767 


SBC 

204,X 

B8BB 

8565 

3768 


STA 

265 

B6BD 

B90300 3769 


LDA 

203, Y 

B8C0 

P503 

3770 


SBC 

203,X 

B8C2 

8564 

3771 


STA 

Z64 

B8C4 

B90200 3772 


LDA 

202, Y 

BBC 7 

F502 

3773 


SBC 

Z02.X 

B8C9 

8563 

3774 


STA 

Z63 

BSCB 

890100 

3775 


LDA 

201, Y 

B8CE 

F501 

3776 


SBC 

Z01,X 

B8D0 

8562 

3777 


STA 

262 

B8D2 

B003 

3778 

JB8D2 

BCS 

BB8D7 

B8D4 

2047B9 

3779 


JSR 

SB947 

B8D7 

A000 

3780 

BB8D7 

LDY 

$00 

B8D9 

98 

3781 


TYA 


B8DA 

18 

3782 


CLC 


B8DB 

A662 

3783 

BB8DB 

LDX 

Z62 

B8DD 

D04A 

3784 


BNE 

BB929 

B8DF 

A663 

3785 


LDX 

Z63 

B8E1 

8662 

3786 


SIX 

262 

B8E3 

A664 

3787 


LDX 

Z64 

B8ES 

8663 

3788 


STX 

Z63 

B8E7 

A665 

3789 


LDX 

265 

B8E9 

8664 

3790 


STX 

Z64 

B8EB 

A670 

3791 


LDX 

Z70 

MED 

8665 

3792 


STX 

265 

B8EF 

8470 

3793 


STY 

Z70 

BBF1 

6908 

3794 


ADC 

$08 

B8F3 

C920 

3795 


Off 

$20 

B8F5 

00E4 

3796 


BNE 

SB8DB 

B8F7 

A900 

3797 

JB8F7 

LDA 

$00 

B8F9 

8561 

3798 

JB8F9 

STA 

261 

B8FB 

8566 

3799 

JB8FB 

STA 

Z66 

B8FD 

60 

3800 


BIS 



If borro», and postshlfc 
;let T polnr 

ito higher 

;coapute Inltlal borro» 

;froa guard bit 

;compute difference, byte 4 

{byte 3 

;byte 2 

;and byte 1 

;if borro» 

;negate result 
; Ini tialite paramele» 

;for poatshlft 

;if moat significane byte 0 

;shlft fractlon over one byte 


{correct exponent by 8 

;repeat untll 4 bytes Eblfted 
;becauae then result - 0 
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3802 ;add fractlons 

3803 ; 


B8FE 

6556 

3804 BB8FE 

ADC 

Z56 

B900 

8570 

3805 

STA 

270 

B902 

A565 

3806 

LDA 

Z65 

B904 

656D 

3807 

ABC 

Z6D 

B906 

8565 

3808 

STA 

Z65 

B908 

A564 

3809 

LDA 

Z64 

B90A 

656C 

3810 

ADC 

Z6C 

B90C 

8564 

3811 

STA 

Z64 

B90E 

A563 

3812 

LDA 

263 

B910 

656B 

3813 

ADC 

Z6B 

B912 

8563 

3814 

STA 

Z63 

B914 

A562 

3815 

LDA 

Z62 

B916 

656A 

3816 

ADC 

Z6A 

B918 

8562 

3817 

STA 

Z62 

B91A 

4C36B9 

3818 

JMP 

JB936 



3819 ; 





3820 ;postshift 



3821 ; 



B91D 

6901 

3822 BB91D 

ADC 

$01 

B91F 

0670 

3823 

' ASL 

Z70 

B921 

2665 

3824 

ROL 

Z65 

B923 

2664 

3825 

R0L 

Z64 

B925 

2663 

3826 

ROL 

Z63 

B927 

2662 

3827 

ROL 

Z62 

B929 

10F2 

3828 BB929 

BFL 

BB91D 

B92B 

38 

3829 

SEC 


B92C 

E561 

3830 

SBC 

Z61 

B92E 

B0C7 

3831 

BCS 

JB8F7 

B930 

49FF 

3832 

E0R 

$FF 

B932 

6901 

3833 

ADC 

$01 

B934 

8561 

3834 

STA 

Z61 

B936 

90OE 

3835 JB936 

BCC 

BB946 

B938 

E661 

3836 JB938 

INC 

Z61 

B93A 

F042 

3837 

BEQ 

BB97E 

B93C 

6662 

3838 

R0R 

Z62 

B93E 

6663 

3839 

R0R 

Z63 

B940 

6664 

3840 

ROR 

Z64 

B942 

6665 

3841 

ROR 

Z65 

B944 

6670 

3842 

ROR 

Z70 

B946 

60 

3843 BB946 

RTS 



jcompute initial fractlon 
;also set guard bit 

;compute subì, byte 4 


;byte 3 


;byte 2 


;byte 1 

;go ad just for carry outslde byte 1 


;add 1 to exponent 
;shift left 1 bit 
;over whole fractlon 


;repeat until MSB * l 

jsubtxact correction troia exponent 

;underflou causes zero result 


; score new exponent 

;carry means overflov in.fractlon 

;so increnent exponent 

;unless exponent overflows 

;and shlft right by one bit 


jincluding guard bit 
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3845 jnegate flp eccu 

3846 ; 


w 

v© 

i> 

SJ 

A566 

3847 

SB947 EDA 

Z66 


B949 

49FF 

3848 

EOR 

$FF 

;coa»plemcnt sign 

B948 

8566 

3849 

STA 

Z66 


894D 

A562 

3850 

SB94D EDA 

262 


B94F 

49FF 

3851 

EOR 

$FF 

;complenent fraction byte 

B951 

8562 

3852 

STA 

262 


B953 

A563 

3853 

LDA 

263 


B955 

49FF 

3854 

EOR 

$FF 

-.byte 3 

B957 

8563 

3855 

STA 

Z63 


B959 

A564 

3856 

LDA 

264 


B95B 

49FF 

3857 

EOR 

$FF 

;byte 2 

B95D 

8564 

3856 

STA 

Z64 


B95F 

A565 

3859 

EDA 

265 


B961 

49FF 

3860 

EOR 

$FF 

;and byte l 

B963 

8565 

3861 

STA 

265 


B965 

A570 

3862 

EDA 

270 


B967 

49FF 

3863 

EOR 

$FF 

; and guard bit 

B969 

8570 

3864 

STA 

270 

;if guard bit 0 

B96B 

E670 

3865 

INC 

270 


B96D 

D00E 

3866 

BNE 

BB97D 

;then incrementi fraction 



3867 

» 





3868 

; incrementi fraction 




3869 

» 



B96F 

E665 

3870 

SB96F INC 

Z65 

; incrementi byte 4 

B971 

DOOA 

3871 

BNE 

BB97D 

;i£ 0 

B973 

E664 

3872 

INC 

264 

;byte 3 alao 

B975 

D006 

3873 

BNE 

BB97D 

;lf 0 

B977 

£663 

3874 

INC 

Z63 

;byte 2 also 

B979 

D002 

3875 

BNE 

BB97D 

;if 0 

B97B 

E662 

3876 

INC 

Z62 

;byte 1 also 

B97D 

60 

3877 

BB97D RTS 


;zero bete means overflov 



3878 

S 



B97E 

A20F 

3879 

BB97E EDX 

$0F 

;potnt to OVERFLOW Error 

B980 

4C37A4 

3880 

JMP 

JA437 

;print message 
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3882 

;preshift 




3883 

» 


B983 

A225 

3884 JB983 LDX 

$25 

B985 

B404 

3885 

BB985 LDY 

204,X 

B9S7 

8470 

3B86 

STY 

270 

B989 

B403 

3887 

LDY 

Z03,X 

B98B 

9404 

3888 

STY 

Z04.X 

B98B 

B402 

3889 

LDY 

202 ,X 

B98F 

9403 

3890 

STY 

203 ,X 

B991 

B401 

3891 

LDY 

Z01,X 

B993 

9402 

3892 

STY 

Z02.X 

B995 

A468 

3893 

LDY 

Z68 

B997 

9401 

3894 

STY 

201 ,X 

B999 

6908 

3895 

SB999 ADC 

$08 

B99B 

30E8 

3896 

EHI 

BB985 

B99D 

F0E6 

3897 

BEQ 

BB985 

B99F 

E908 

3898 

SBC 

$08 

B9A1 

AB 

3899 

TAY 


B9A2 

A570 

3900 

LDA 

Z70 

B9A4 

BOI 4 

3901 

BCS 

BB9BA 

B9A6 

1601 

3902 

BB9A6.ASL 

Z01,X 

B9A8 

9002 

3903 

BCC 

BB9AC 

B9AA 

F601 

3904 

INC 

201,X 

B9AC 

7601 

3905 

BB9AC KOB 

201 ,X 

B9AE 

7601 

3906 

ROR 

Z01.X 

B9B0 

7602 

3907 

SB9B0 ROR 

202 ,X 

B9B2 

7603 

3908 

ROR 

Z03,X 

B9B4 

7604 

3909 

ROR 

204, X 

B9B6 

6A 

3910 

ROR 

A 

B9B7 

C8 

3911 

INY 


B9B8 

D0EC 

3912 

BNE 

BB9A6 

B9BA 

18 

3913 

BB9BA CLC 


B9BB 

60 

3914 

RTS 



;shift vhole fraction 
;right one byte 


; high order padding 

;add 8 to exponent 
;i£ stili <- 0 
;shift another byte 
compensate for correctlon 

; check guard bit 

;if exponent zero now, stop shifting 
;else 


;shift fraction right one bit 


;last bit into A 
;until # of shifts zero 
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3916 ; 1, alGo used as default FOR step 
B9BC 810000 3917 TB9BC -BY $81,$00,$00,$00,$00 
3918 ;polynome cable for LOG 
B9C1 03 3919 TB9C1 . BY $03 

3920 ;0.434255942 

B9C2 7F5E56 3921 .BY $7F,$5E,$56,$CB,$79 

3922 ;0.576584541 

B9C7 80139B 3923 .BY $B0,$13,$9B,$0B,$64 

3924 ;0.961800759 

B9CC 807638 3925 .BY $80,$76,$38.$93,$16 

3926 ;2.88539007 

B9D1 8238AA 3927 .BY $82,$38,$AA,$3B,$20 

3928 ;0.5 * SQR(2) 

B9D6 803504 3929 TB9D6 .BY $80,$35,$04,$F3,$34 
3930 ;SQR(2) 

B9DB 813504 3931 TB9DB .BY $81,$35,$04,$F3,$34 
3932 ;-0.S 

B9E0 808000 3933 TB9E0 .BY $80,$80,$00,$00,$00 
3934 ;LOG(2) 

B9E5 803172 3935 TB9E5 .BY $80,$31,$72,$17,$F8 

3936 ; 

3937 ;"LOG" command 

3938 ; 

B9EA 3939 WB9EA « * 

B9EA 202BBC 3940 SB9EA JSR SBC2B ;get Bign of flp accu iato A 

B9ED F002 3941 BEQ BB9F1 

B9EF 1003 3942 BPL BB9F4 jlf > 0, OK 

B9F1 4C48B2 3943 BB9F1 JMP JB248 ;elee ILLEGAL QUANTITY Error 

3944 ; 

B9F4 A561 3945 BB9F4 LDA Z61 ;get exponent 

B9F6 E97F 3946 SBC $7F jcorrrect for excess of 128 

B9F8 48 3947 FBA ;and Bave result 

B9F9 A980 3948 LDA $80 

B9FB 8561 3949 STA Z61 ;set exponent 

B9FD A9D6 3950 LDA <TB9D6 

B9FF. A0B9 3951 LDY >TB9D6 ;set AY to poinc to 0.5 * SQR(2) 

BA01 2067B8 3952 JSR SB867 ;add to flp accu 

BA04 A9DB 3953 LDA <TB9DB 

BA06 A0B9 3954 LDY >TB9DB ;set AT to point to SQR(2) 

BA08 200FBB 3955 JSR SBB0F ; divide AY by flp accu 

BA0B A9BC 3956 LDA <TB9BC 

BAOD A0B9 3957 LDY >TB9BC ;aet AY to point to 1 

BAOF 2050B8 3958 JSR SB850 ;subtract flp accu from AY 

BAI2 A9C1 3959 LDA <TB9C1 

BAI4 A0B9 3960 LDY >TB9C1 ;aet AY to polynome table 

BAI6 2043E0 3961 JSR XE043 ; computo odd polynome 

BA19 A9E0 3962 LDA <TB9E0 

BA1B A0B9 3963 LDY >TB9E0 ;set AY to point to -0.5 

BA1D 2067B8 3964 JSR SB867 ;add to flp accu 

BA20 68 3965 PLA ;restore exponent 

BA21 207EBD 3966 JSR JBD7E ;add exponent to flp accu 

BA24 A9E5 3967 LDA <TB9E5 

BA26 A0B9 3968 LDY >TB9E5 ;set AY to L0G(2) 

BA28 208CBA 3969 SBA2B JSR SBABC -.mulclply AY tlmes flp accu 




3971 

operator 



3972 

> 


BA2B D003 

3973 

WBA2B BNE BBA30 

;lf flp accu - 0, return 

BA2D 4C8BBA 

3974 

JMP JBA8B 



3975 

; 


BA30 20B7BA 

3976 

BBA30 JSR SBAB7 

;add exponents 

BA33 A900 

3977 

LDA $00 


BA35 8526 

3978 

STA 226 

;set flp accu extensioo to zero 

BA37 8527 

3979 

STA 227 


BA39 8528 

3980 

STA 228 


BA3B 8529 

3981 

STA Z29 


BA3D A570 

3962 

LDA 270 

;get guard bit 

BA3F 2059BA 

3983 

JSR SBA59 

;* second flp accu added to flp accu ext 

BA42 A565 

3984 

LDA 265 


BA44 2059BA 3985 

JSR SBA59 

;same for byte 4 

BA47 A564 

3986 

LDA Z64 


BA49 2059BA 3987 

JSR SBA59 

;sane for byte 3 

BA4C A563 

3988 

LDA 263 


BA4E 2059BA 

3989 

JSR SBA59 

;and byte 2 

BASI A562 

3990 

LDA Z62 


BA53 2Q5EBA 3991 

JSR SBA5E 

;and byte 1 

BA56 4C8FBB 3992 

JMP JBB8F 

;post-uortoallze and return 


3993 

a 



3994 

;add secoad flp 

accu * A to flp extension 


3995 

» 


BA59 D003 

3996 

SBA59 BUE SBA5E 

;if a zero 

BA5B 4C83B9 

3997 

JMP JB983 

jperfono pre-ehift 


3998 

» 


BA5E 4A 

3999 

SBA5E LSR A 

;shlft LSB of A lnto carry 

BA5F 0980 

4000 

ORA $80 

;aet to $80 only after 8 ehlfte 

BA61 A8 

4001 

BBA61 TAY 

;save A 

BA62 9019 

4002 

BCC BBA7D 

;lf lou bit- set 

BA64 18 

4003 

CLC 


BA65 A529 

4004 

LDA Z29 


BA67 6560 

4005 

ADC Z6D 

;add second flp frac cioè 

BA69 8529 

4006 

STA Z29 

;to flp extension 

BA6B A528 

4007 

LDA Z28 


BA6D 656C 

4008 

ADC Z6C 


BA6F 8528 

4009 

STA 228 

;also byte 2 

BA71 A527 

4010 

LDA Z27■ 


EA73 656B 

4011 

ADC Z6B 


BA75 8527 

4012 

STA Z27 

;and byte 3 

BA77 A526 

4013 

LDA Z26 


BA79 656A 

4014 

ADC Z6A 


BA7B 8526 

4015 

STA 226 

;and byte 4 

BA70 6626 

4016 

BBA7D ROR Z26 

;shlft flp extension rlght 1 Ut 

BA7F 6627 

4017 

ROR Z27 


BASI 6628 

4018 

ROR 228 


BA83 6629 

4019 

ROR 229 


BA85 6670 

4020 

ROR 270 

;including guard bit 

BA87 98 

4021 

TTA 

;restere A 

BA88 4a 

4022 

LSR A 

;get lou bit of A into carry 

8A89 D0D6 

4023 

BNE BBA61 

;repeat untll zero 

BA8B 60 

4024 

JBA8B RTS 
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4026 ;nove flp # indexed 

4027 ; 


BA8C 

8522 

4028 

SBA8C STA 

Z22 

BA8E 

8423 

4029 

STY 

Z23 

BA90 

A004 

4030 

LDY 

$04 

BA92 

B122 

4031 

LDA 

(Z22),Y 

BA94 

8560 

4032 

STA 

Z6D 

BA96 

88 

4033 

DEY 


BA97 

B122 

4034 

LDA 

(Z22),Y 

BA99 

856C 

4035 

STA 

Z6C 

BA9B 

88 

4036 

DEY 


BA9C 

8122 

4037 

LDA 

(Z22),Y 

BA9E 

856B 

4036 

STA 

Z6B 

BAAO 

88 

4039 

DEY 


BAA1 

B122 

4040 

LDA 

<Z22),Y 

BAA3 

856E 

4041 

STA 

Z6E 

BAA5 

4566 

4042 

EOR 

Z66 

BAA7 

856F 

4043 

STA 

Z6F 

BAA9 

A56E 

4044 

LDA 

Z6E 

BAAB 

0980 

4045 

ORA 

$80 

BAAO 

8 56A 

4046 

STA 

Z6A 

BAAF 

88 

4047 

DEY 


BABO 

B122 

4048 

LDA 

(Z22),Y 

BAB2 

8569 

4049 

STA 

Z69 

BAB4 

A561 

4050 

LDA 

Z61 

BAB6 

60 

4051 

RTS 



by AY lnto second flp accu 
;save AY index 

;aove byte 4 of fraction 

;byte 3 

;byte 2 

;and byte l 
;into slgn 

;also Esclusive OR vith slgn of flp accu 
;byte 1 alvays has bit 7 set 
;save exponent 

;shov exponent of flp accu in A, 2 and N 
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4053 

;add exponents 





4054 

t 




BAB7 

A569 

4055 

SBAB7 LDA 

269 

;get exp. of 2nd flp accu (left operand) 

BAB9 

FOIF 

4056 

BEQ 

BBADA 

;lf zero, set zero result 


BABB 

18 

4057 

eie 




BABC 

6561 

4058 

ABC 

Z61 

;add to exponent of flp accu 


BABE 

9004 

4059 

BCC 

BBAC4 

;if carry net 


BACO 

30U> 

4060 

EMI 

BBADF 

;and negative, true overflov 


BAC2 

18 

4061 

CLC 


;else correct for excess 128 


BAC3 

2C 

4062 

• BY 

$2C 

;sldp next instructllon 


BAC4 

1014 

4063 

BBAC4 BPL 

BBADA 

,;lf C - l and positive, reai underflow 

BAC6 

6980 

4064 

ADC 

$80 

;else correct for excess 128 


BAC8 

8561 

4065 

STA 

Z61 

;store resulting exponent 


BACA 

D003 

4066 

BNE 

BBACF 

;lf zero 


BACC 

4CFBB8 

4067 

JMF 

JB8FB 

;set slgn positive 




4068 

; 




BACF 

A56F 

4069 

BBACF LDA 

Z6F 

jExclusive OR of slgns 


BADI 

8566 

4070 

STA 

Z66 

;is slgn of result 


BAD3 

60 

4071 

RTS 






4072 

* 




BAD4 

A566 

4073 

LDA 

Z66 

;get slgn of flp accu 


BAD6 

49FF 

4074 

-EOR 

$FF 



BADS 

3005 

4075 

BMI 

BBADF 

;lf positive, overflov 


BADA 

68 

4076 

BBADA PLA 


;remove own return address 


BAIsB 

68 

407? 

PLA 




BADC 

4CF7B8 

4078 

JMF 

JB8F7 

jand set result zero 




4079 

» 




BADF 

4C7EB9 

4080 

BBADF JMP 

BB97E 

;OVERFLOV Error 




4081 

> 






4082 

;multiply 

flp acca 

by 10 




4083 

; 




BAE2 

200CBC 

4084 

SBAE2 JSR 

SBCOC 

;move rounded flp luto second 

flp accu 

BAE5 

AA 

4085 

TAX 


;get exponent 


BAE6 

F010 

4086 

BEQ 

BBAF8 

;lf flp accu ls zero, return 


BAE8 

18 

4087 

CLC 




BAE9 

6902 

4038 

ADC 

$02 

jexponent of second flp + 2 (t 

* 4) 

BAEB 

B0F2 

4089 

BCS 

BBADF 

;exlt If overflov 


BAED 

A200 

4090 

SBAED LUX 

$00 



BAEF 

866F 

4091 

STI 

Z6F 

;set slgns sane 


BAF1 

2077B8 

4092 

JSR 

SB877 

;add second flp accu to flp (f 

* 5> 

BAF4 

E661 

4093 

INC 

Z61 

;add 1 to expouent (f * 10) 


BAF6 

F0E7 

4094 

BEQ 

BBADF 

;exit If overflov 


BAF8 

60 

4095 

BBAF8 RTS 






4096 

f 






4097 

;flp Constant 10 fot dlvlslon 


BAF9 

842000 

4098 

TBAF9 -BT $84, $20,800,$00,$00 




4099 

> 






4100 

;dlvide flp acca by 

10 




4101 

; 




BAFE 

200CBC 

4102 

SBAFE JSR 

SBCOC 

;move rounded flp accu to 2nd 

flp accu 

BBOl 

A9F9 

4103 

LDA 

<TBAF9 



BB03 

AOBA 

4104 

LDY 

>TBAF9 

;set AY to flp vaine 10 


BB05 

A200 

4105 

LDX 

$00 



BB07 

866F 

4106 

STX 

Z6F 

;set slgns thè sane 


BB09 

20A2BB 

4107 

JSR 

SBBA2 

;load flp accu froo AY 


BBOC 

4C12BB 

4108 

JMP 

JBB12 

; perforo; dlvlslon 
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4110 ; divide number (indexed by AY) by flp accu 

4111 ; 


BBOF 

208CBA 4112 

sbbof 

JSR 

SBA8C 



4113 

i 





4114 

operator 



4115 

> 



BB12 


4116 

WBB12 

- . 

* 

BB12 

F076 

4117 

JBB12 

BEQ 

BBB8A 

BB14 

201BBC 

4118 


JSR 

SBC1B 

BB17 

A900 

4119 


LISA 

$00 

BB19 

38 

4120 


SEC 


BB1A 

E561 

4121 


SBC 

Z61 

B81C 

8561 

4122 


STA 

Z61 

BB1E 

20B7BA 4123 


JSR 

SBAB7 

BB21 

E661 

4124 


INC 

Z61 

BB23 

FOBA 

4125 


BEQ 

BBADF 

BB2S 

A2FC 

4126 


LDa 

$FC 

BB27 

A901 

4127 


LDA 

$01 

BB29 

A46A 

4128 

BBB29 

LDY 

Z6A 

BB2B 

C462 

4129 


CPY 

Z62 

BB2D 

DO 10 

4130 


BNE 

BBB3F 

BB2F 

A46B 

4131 


LDY 

Z6B 

BB31 

C463 

4132 


CPY 

Z63 

BB33 

D00A 

4133 


BNE 

BBB3F 

BB35 

A46C 

4134 


LDY 

Z6C 

BB37 

C464 

4135 


CPY 

Z64 

BB39 

0004 

4136 


BNE 

BBB3F 

BB3B 

A46D 

4137 


LDY 

Z6D 

BB3D 

C465 

4138 


CPY 

Z65 

BB3F 

08 

4139 

BBB3F 

FHP 


BB40 

2A 

4140 


ROL 

A 

BB41 

9009 

4141 


BCC 

BBB4C 

BB43 

E8 

4142 


INX 


BB44 

9529 

4143 


STA 

Z29,X 

BB46 

F032 

4144 


BEQ 

BBB7A 

BB48 

1034 

4145 


BPL 

BBB7E 

BB4A 

A901 

4146 


LDA 

$01 

BB4C 

28 

4147 

BBB4C FLP 


BB4D 

BOOE 

4148 


BCS 

BBB5D 

BB4F 

0660 

4149 

JBB4F ASL 

Z6D 

BB51 

266C 

4150 


ROL 

Z6C 

BB53 

266B 

4151 


ROL 

Z6B 

BB55 

266A 

4152 


ROL 

Z6A 

BB57 

B0E6 

4153 


BCS 

BBB3F 

BB59 

30CE 

4154 


BMI 

BBB29 

BB5B 

10E2 

4155 


BPL 

BBB3F 

BB5D 

A8 

4156 

BBB50 TAY 


BB5E 

A56D 

4157 


LDA 

Z6D 

BB60 

E565 

4158 


SBC 

Z65 

BB62 

856D 

4159 


STA 

Z6D 

BB64 

A56C 

4160 


LDA 

Z6C 

BB66 

E564 

4161 


SBC 

Z64 

BB68 

856C 

4162 


STA 

Z6C 

BB6A 

A56B 

4163 


LDA 

Z6B 

BB6C 

E563 

4164 


SBC 

Z63 

BB6E 

856B 

4165 


STA 

Z6B 

BB70 

A56A 

4166 


LDA 

Z6a 

BB72 

E562 

4167 


SBC 

Z62 

BB74 

856A 

4168 


STA 

Z6A 

BB76 

98 

4169 


ITA 



;fetch # indexedby AY into 2od flp aecu 


;lf flp acca - 0, DIVISION BY ZERO Error 
; round flp accu according to guard bit 


;compute 2 'e complement of exponent 

;add exponents 
;correet exponent 
;exlt lf overflow 

;set Inltial Index loto flp extenalon 
;assure 8 loops per byte 

;conpare fractlons, byte 1 


;byte 2 


{byte 3 


{byte 4 

;eave result of conparlson 
;shlft result into A 
;after 8 shifts 

;save result Into flp extenslon 
;after byte 4, do guard byte 
;after guard byte, exit 
{agaln, 8 Iterations per byte 
;restore result of conparlson 
;if dividenti larger, subtract 
;shift dlvldend left 1 bit 


;lf C * l conparlson result vili be 1 
Jif C “ 0 and MSB « 1, compare 
Jif C ■ 0 and MSB “ 0, conp. result * 0 
;lf dlvldend larger 

{subtract dlvlsor 


;byte 2 


;byte 3 


{byte 4 
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BB77 

4C4FBB 4170 

JKP 

JBB4F 



4171 

; 


BB7A A940 

4172 

BBB7A LDA 

$40 

BB7C 

DO CE 

4173 

BNE 

BBB4C 

BB7E 

OA 

4174 

BBB7E ASl 

A 

BB7F 

OA 

4175 

ASL 

A 

BB80 

OA 

4176 

ASL 

A 

BB81 

OA 

4177 

ASL 

A 

BB82 

OA 

4178 

ASL 

A 

BB83 

OA 

4179 

ASL 

A 

BB84 

8570 

4180 

STA 

Z70 

EB86 

28 

4181 

FLP 


BB87 

4C8FBB 4182 

JMF 

JBB8F 



4183 

> 


BBS A 

A214 

4184 

BBB8A ldx 

$14 

BB8C 

4C37A4 

4185 

JKP 

JA437 



4186 

J 


BB8F 

A526 

4187 

JBB8F LDA 

Z26 

BB91 

8562 

4188 

STA 

Z62 

BB93 

A527 

4189 

LDA 

227 

BBS5 

8563 

4190 

STA 

Z63 

BB97 

A528 

4191 

LDA 

Z28 

BB99 

8564 

4192 

STA 

264 

BB9B A529 

4193 

LDA 

Z29 

BB9D 

8565 

4194 

STA 

265 

BE9F 

4CD7B8 

4195 

JMP 

BB8D7 



4196 

« 




4197 

;load flp 

accu vi 



4198 

» 


BBA2 

8522 

4199 

SBBA2 STA 

Z22 

B3A4 

8423 

4200 

STY 

Z23 

BBA6 

A004 

4201 

LDY 

$04 

BBA8 

B122 

4202 

LDA 

(Z22),Y 

BBAA 

8565 

4203 

STA 

Z65 

BBAC 

88 

4204 

DEY 


BBAD 

B122 

4205 

LDA 

(272),Y 

BBAF 

8564 

4206 

STA 

Z64 

BBB1 

88 

4207 

DEY 


BBB2 

B122 

4208 

LDA 

(222),Y 

BBB4 

8563 

4209 

STA 

Z63 . 

BBB6 

88 

4210 

DEY 


BBB7 

B122 

4211 

LDA 

(222),Y 

BBB9 

8566 

4212 

STA 

266 

BBBB 

0980 

4213 

ORA 

$80 

BBBD 

8562 

4214 

STA 

262 

BBBF 

88 

4215 

DEY 


BBCO 

B122 

4216 

LDA 

(222),Y 

BBC2 

8561 

4217 

STA 

Z61 

BBC4 

8470 

4218 

STY 

270 

BBC6 

60 

4219 

RTS 



;repeat 

;tvo more iterations for guarà bit 

;after guarà byte computation, 
;shift result left 6 bits 


;set neu guarà bit 

;remove result of last comparison 

;aud save result 

;point to DIVISION BY ZERO Error 
sprint error 

;move flp accu extension 
;into flp fractiou 

;byte 2 

;byt.e 3 

{byte 4 

;do post-noraiallzation 
constane indexed by AY 


;save AY 

; load byte + 4 
;into flp accu + 4 

;Yyte + 3 


{byte + 2 


{byte + 1 
;lnto sigu byte 
•and vith bit 7 set 
;ìnto flp accu + 1 

{byte + 0 

;lnto exponent of flp accu 
;clear guatd bit 
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4221 

jstore flp accu at 

Z5C-260 


4222 

i 


BBC7 A25C 

4223 

LDX <Z5C 

jinltislize lov byte of pointer 

BBC9 2C 

4224 

.BY $2C 

jsklp next lnstruction 


4225 

» 



4226 

jstore flp accu at 

Z57-Z5B 


4227 

» 


BBCA A257 

4228 

LDX <257 

; Initlai ls< 3<w byte of pointer 

BBCC AOOO 

4229 

LDY >257 

;Inltlalire high byte of pointer 

BBCE F004 

4230 

BEQ SBBD4 

; JMP 


4231 

J 



4232 

jstore flp accu into area indexed by 249/24A 


4233 

; 


BBDO A649 

4234 

JBBDO LUX Z49 

;aet areB pointer in XY 

BBD2 A44A 

4235 

LDY Z4A 



4236 

» 



4237 

jstore flp accu In 

area indexed by XY 


4238 

» 


BBD4 201BBC 4239 

SBBD4 JSK SBC1B 

;round flp accu 

BBD7 8622 

4240 

STX Z22 

jstore XY in tenporary pointer 

BBD9 8423 

4241 

STY 223 


BBDB A004 

4242 

LDY $04 


BBDD A565 

4243 

LDA 265 

•nove byte 4 of fraction 

BBDF 9122 

4244 

STA (222),Y 


BBE1 88 

4245 

DEY 


BBE2 A364 

4246 

LDA Z64 


BBE4 9122 

4247 

STA (Z22),Y 

;byt« 3 

BBE6 88 

4248 

DEY 


BBE7 A563 

4249 

LDA Z63 


BBE9 9122 

4250 

STA (Z22),Y 

«byte 2 

BBEB 88 

4251 

DEY 


BBEC A566 

4252 

LDA 266 

jcombine sign 

BBEE 097F 

4253 

ORA $7F 


BBFO 2562 

4254 

AND Z62 

;and byte 1 

BBF2 9122 

4255 

STA (Z22),Y 

;lnto byte 1 of area 

BBF4 88 

4256 

DEY 


BBF5 A561 

4257 

LDA Z61 

ìhte exponent 

BBF7 9122 

4258 

STA (Z22),Y 


BBF9 8470 

4259 

STY Z70 

;clear guard bit 

BBFB 60 

4260 

BIS 



4261 

» 



4262 

jmove aecond flp accu lnto ftret flp accu 


4263 

> 


BBFC A56E 

4264 

SBBFC LDA Z6E 

jnove sign 

BBFE 8566 

4265 

SBBFE STA 266 


BCOO A205 

4266 

LUX $05 

;loop counter 

BC02 B568 

4267 

BBC02 LDA 268 ,X 

;nore 5 bytes 

BC04 9560 

4268 

STA Z60,X 


BC06 CA 

4269 

DEX 


BC07 D0F9 

4270 

BUE BBC02 


BC09 8670 

4271 

STX Z70 

;aet produci of algna to "4" 

BCOB 60 

4272 

RTS 
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4274 

;move 

rounded flp accu into second flp accu 



4275 

j 




BCOC 

201BBC 

4276 

SBCOC 

JSR 

SBC1B 

; round flp accu 

BCOF 

A206 

4277 


LDX 

$06 

; set # bytes to oove 

bcu 

B560 

4278 

BBC11 

ÌDA 

260,X 

;move 6 bytes 

BC13 

9568 

4279 


STA 

Z68.X 


BC15 

CA 

4280 


DEX 



BC16 

D0F9 

4281 


BNE 

BBC11 


BC18 

8670 

4282 


STX 

Z70 

;store zero loto guard bit 

SCIA 

60 

4283 

BBC1A 

RTS 





4284 

; 






4285 

;round flp accu according lo guard bit 



4286 

; 




BC1B 

A561 

4287 

SBC1B 

LDA 

Z61 

;if flp accu « 0 

BC1D 

FOFB 

4288 


BEQ 

BBC1A 

;leave le at 0 

BC1F 

0670 

4289 


ASL 

Z70 

;if guard bit not set 

BC21 

90F7 

4290 


BCC 

BBC1A 

;Status quo 

BC23 

206FB9 

4291 

SBC23 

JSR 

SB96F 

;increnènt fractlon 

BC26 

D0F2 

4292 


BNE 

BBC1A 

;if no overflow, leave It 

BC28 

4C38B9 

4293 


JMF 

JB938 

;else shlft fractlon rlght 1 bit 



4294 

» 






4295 

;get sigD 

of flp accu In A 



4296 

* 




BC2B 

A561 

4297 

SBC2B 

LDA 

Z61 

;if exponent zero 

BC2D 

F009 

4298 


BEQ 

BBC38 

;sign ■ 0 

BC2F 

A566 

4299 

BBC2F 

LDA 

Z66 

jmove slgn bit 

BC31 

2A 

4300 

JBC31 

ROL 

A 

;into C bit 

BC32 

A9FF 

4301 


LDA 

$FF 

;if C - 1, sign - FF 

BC34 

B002 

4302 


BCS 

BBC38 


BC36 

A901 

4303 


LDA 

$01 

;if C - 0, sign “ 01 

BC38 

60 

4304 

BBC38 

RTS 





4305 

f 






4 306 

; "SGN" 

comaand 




4307 

1 




BC39 

202BBC 

4308 

WBC39 

JSR 

SBC2B 

;get SGN of flp accu into A 



4309 

! 






4310 

[nove 

sigued number 

from A into flp accu 



4311 

> 




BC3C 

8562 

4312 

JBC3C 

STA 

Z62 

; store # in most slgnlflcant byte 

BC3E 

A900 

4313 


LDA 

$00 


BC40 

8563 

4314 


STA 

Z63 

;and 0 into byte 2 

BC42 

A288 

4315 


LDX 

$88 

;load exponent 

BC44 

A562 

4316 

JBC44 

LDA 

Z62 


BC46 

49FF 

4317 


EOR 

$FF 

;comple»ent sign 

BC48 

2A 

4318 


ROL 

A 

;and move into C flag 

BC49 

A900 

4319 

SBC49 

LDA 

$00 


BC4B 

8565 

4320 


STA 

Z65 

;clear byte 3 

BC4D 

8564 

4321 


STA 

Z64 

;aad byte 4 

BC4F 

8661 

4322 

JBC4F 

STX 

Z61 

; store exponent 

BC51 

8570 

4323 


STA 

Z70 

;ioove sign to guard bit 

BC53 

8566 

4324 


STA 

Z66 

;and to sign bit 

BC55 

4CD2B8 

4325 


JMP 

JB8D2 

;negate flp accu if borrow and post-shift 
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4327 ;”ABS" command 

4328 ; 

BC58 4666 4329 WBC58 LSR Z66 

BC5A 60 4330 RTS 

4331 ; 

4332 ; compare flp accu to 

4333 ; 

BC5B 8524 4334 SBC5B SIA Z24 

BC5D 8425 4335 SBC5D STY Z25 

BC5F AOOO 4336 LDY $00 

BC61 B124 4337 LDA (Z24),Y 

BC63 CE 4338 INY 

BC64 AA 4339 TAX 

BC65 F0C4 4340 BEQ SBC2B 

BC67 B124 4341 LDA (Z24),Y 

BC69 4566 4342 EOR Z66 

BC6B 30C2 4343 BHI BBC2F 

BC6D E461 4344 CPX Z61 

BC6F DO21 4345 BNE BBC92 

BC71 B124 4346 LDA (Z24),Y 

BC73 0980 4347 ORA $80 

BC75 C562 4348 CMP Z62 

BC77 D019 4349 BNE BBC92 

BC79 C8 4350 INY 

BC7A B124 4351 LDA (Z24),Y 

BC7C C563 4352 CMP Z63 

BC7E D01Z 4353 BNE BBC92 

BC80 C8 4354 INY 

BC81 B124 4355 LDA (Z24),Y 

BC83 C564 4356 CMP Z64 

BC85 DOOB 4357 BNE BBC92 

BC87 C8 4358 INY 

BC88 A97F 4359 LDA $7F 

BC8A C570 4360 CMP Z70 

BCBC B124 4361 LDA (Z24),Y 

BC8E E565 4362 SBC Z65 

BC90 F028 4363 BEQ BBCBA 

BC92 A566 4364 BBC92 LDA Z66 

BC94 9002 4365 BCC BBC98 

BC96 49FF 4366 EOR $FF 

BC98 4C31BC 4367 BBC98 JMP JBC31 


[set slgn o£ flp accu positive 


flp o ìndexed by AY 
;save index to variable 


;get exponent of variable 


;if zero, get slgn of flp accu 
;get byte 1 of fraction 
;if different from slgn of flp accu 
;get slgn of flp accu 
Jcompare exponents 

;if not equal, set sign according co C 
;gec byte 1 

; compare to byte 1 of flp accu 

;lf not equal, set sign according to C 

[get byte 2 

; compare to byte 2 of flp accu 

;lf not equal, set slgn according to C 

;get byte 3 

[compare co byte 3 of flp accu 

;if not equ8l, set sign accorlng to C 

[set borro» 

[according to guard bit 

[compute dlfference between bytes 4 
;lf equal, return with A » 0 
[else compute slgn according to C 


[and set A accordlcgly 
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4369 

jconvert flp ac 



4370 

» 


BC9B 

A561 

4371 

SBC9B LBA 

Z61 

BC9D 

F04A 

4372 

BEQ 

BBCE9 

BC9F 

38 

4373 

SEC 


BCAO 

E9A0 

4374 

SBC 

SAO 

BCA2 

2466 

4375 

BIT 

Z66 

BCA4 

1009 

4376 

BPL 

BBCAF 

BCA6 

AA 

4377 

TAX 


BCA7 

A9FF 

4378 

LBA 

$FF 

BCA9 

8568 

4 379 

STA 

Z68 

BCAB 

204DB9 

£380 

JSR 

SB94D 

BCAE 

8A 

4381 

TXA 


BCAF 

A261 

4382 

BBCAF LBX 

$61 

BCB1 

C9F9 

4383 

CMP 

$F9 

BCB3 

1006 

4 364 

BPL 

BBCBB 

BCB5 

2099B9 

4385 

JSR 

SB999 

BCB8 

8468 

4 386 

sty 

268 

BOBA 

60 

4387 

BBCBA RTS 




4388 

; 


BCBB 

A8 

4389 

BBCBB TAY 


BCBC 

A566 

4390 

' LBA 

Z66 

BCBE 

2980 

4391 

AND 

$80 

BCCO 

4662 

4392 

LSR 

262 

BCC2 

0562 

4393 

ORA 

Z62 

BCC4 

8562 

4394 

STA 

Z62 

BCC6 

20B0B9 

4395 

JSR 

SB9B0 

BCC9 

8468 

4396 

STY 

Z68 

BCCB 

60 

4 397 

RTS 




4398 

I 




4399 

;"INT" command 



4400 

l 


BCCC 


4401 

WBCCC - 

* 

BCCC 

A561 

4402 

SBCCC LBA 

Z61 

BCCE 

C9AD 

4403 

CMP 

$A0 

BCDO 

B020 

4404 

BCS 

BBCF2 

BCD2 

209BBC 

4405 

JSR 

SBC9B 

BCB5 

8470 

4406 

STY 

270 

BCD7 

A566 

4407 

LBA 

Z66 

BCD9 

8466 

4406 

STY 

Z66 

BCBB 

4980 

4409 

EOE 

$80 

BCDD 

2A 

4410 

ROL 

A 

BCBE 

A9A0 

4411 

LBA 

$A0 

BCEO 

8561 

4412 

STA 

Z61 

BCE2 

A565 

4413 

LBA 

Z65 

BCE4 

8507 

4414 

STA 

Z07 

BCE6 

4CB2B8 

4415 

JMF 

JB8D2 



4416 

» 




4417 

jclear flp accu 



4418 

; 


BCE9 

8562 

4419 

BBCE9 STA 

Z62 

BCEB 

8563 

4420 

STA 

263 

BCEB 8364 

4421 

STA 

Z64 

BCEF 

8565 

4422 

STA 

Z65 

BCF1 

A8 

4423 

TAY 


BCF2 

60 

4424 

BBCF2 RTS 



to a 4 byte signei integer 
;gec exponent 

jif zero fili fractlon vith zeros 

jcalculate exponent - 32 
;lf result negative 

;save A 

;set padding to ones 

;oegate flp fractlon 
;restore A 

;if < 8 placca to be shifted 
;do shift 

;and reset padding 


;if > • 8 places to be shifted 


;set paraneters 
jand MSB 

;to do byte shlfts firet 
;and then reset padding 


;get exponent 
;lf > - 32 

;then no conversion necessary 
jconvert flp accu to 4 byte Integer 
;elear guari bit 
;get sign 

;set sign positive 

jinvert sign 

;and nove into carry 

;set exponent to 32 
;move leaat slgnlficant bit 
;into even/odd sultch 
.-negate flp accu if borro» 


jaove A into every byte of fractlon 
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to flp f In flp accu 




4426 

;convert strlng 



4427 

; 



BCF3 

A000 

4428 

SBCF3 

LDY 

soo 

BCF5 

A20A 

4429 


LDX 

$0A 

BCF7 

94 5D 

4430 

BBCF7 

STY 

Z5D.X 

BCF9 

CA 

4431 


DEX 


BCFA 

10FB 

4432 


BPL 

BBCF7 

BCFC 

900F 

4433 


BCC 

BBD0D 

BCFE 

C92D 

4434 


CMF 


BDOO 

B004 

4435 


BNE 

BBD06 

BD02 

8667 

4436 


STX 

Z67 

BD04 

F004 

4437 


BEQ 

BBDOA 

BD06 

C92B 

4438 

BBD06 

CMF 

'+ 

BD08 

D005 

4439 


BNE 

BBDOF 

BD0A 

207300 

4440 

BBD0A 

JSR 

X0073 

BD0D 

905B 

4441 

BBD0D 

BCC 

BBD6A 

BD0F 

C92E 

4442 

BBDOF 

CMP 

' _ 

BDU 

F02E 

4443 


BEQ 

BBD41 

BD13 

C945 

4444 


CMP 

'E 

BD15 

D030 

4445 


BNE 

BBD47 

BD17 

207300 

4446 


JSR 

X0073 

BOIA 

9017 

4447 


BCC 

BBD33 

BD1C 

C9AB 

4448 


CMP 

$AB 

BD1E 

F00E 

4449 


BEQ 

BBD2E 

BD20 

C92D 

4450 


CMP 


BD22 

F00A 

4451 


BEQ 

BBD2E 

BD24 

C9AA 

4452 


CMP 

$AA 

BD26 

F008 

4453 


BEQ 

BBD30 

BD28 

C92B 

4454 


CMP 

'+ 

BD2A 

F004 

4455 


BEQ 

BBD30 

BD2C 

D007 

4456 


BNE 

BBD35 

BD2E 

6660 

4457 

BBD2E 

ROR 

Z60 

BD30 

207300 

4458 

BBD30 

JSR 

X0073 

BD33 

905C 

4459 

BBD33 

BCC 

BBD91 

BD35 

2460 

4460 

BBD35 

BIT 

Z60 

BD37 

100E 

4461 


BPL 

BBD47 

BBS 9 

A900 

4462 


LDA 

$00 

SD3B 

38 

4463 


SEC 


BD3C 

ESSE 

4464 


SBC 

Z5E 

BD3E 

4C49BD 

4465 


JMP 

JBD49 



4466 

> 



BD41 

665F 

4467 

BBD41 

ROR 

Z5F 

BD43 

245F 

4468 


BIT 

Z5F 

BD45 

50C3 

4469 


BVC 

BBDOA 

BD47 

ASSE 

4470 

BBD47 

LDA 

Z5E 

BD49 

38 

4471 

JBD49 

SEC 


BD4A 

E55D 

4472 


SBC 

Z5D 

BD4C 

85SE 

4473 


STA 

Z5E 

BD4E 

F012 

4474 


BEQ 

BBD62 

BD50 

1009 

4475 


BFL 

BBD5B 

BD52 

20FEBA 

4476 

BBD52 

JSR 

SBAFE 

BD55 

E6SE 

4477 


INC 

Z5E 

BD57 

D0F9 

4478 


BNE 

BBD5Z 

BD59 

F007 

4479 


BEQ 

BBD62 

BD5B 

20E2BA 

4480 

BBD5B 

JSR 

SBAE2 

BD5E 

C65E 

4481 


DEC 

ZSE 

BD60 

D0F9 

4482 


BNE 

BBD5B 

BD62 

A567 

4483 

BBD62 

LDA 

Z67 

BD64 

3001 

4484 


BMI 

BBD67 

BD66 

60 

4485 


RTS 



;loop counter, il bytes to be cleared 
;clear flp accu and 5 more 

;if flrst character not numeric 
; check for miuus 
;if so, 

;»et flag for negative 4 

; check for positive mia ber 
;if not, go try others 
;get next character 
jlf numeric, gather number 
;if decimai point, 

;fiet flag 

;if exponent character 

;get next character 

;lf numeric, gather exponent value 

;if code for *■-” 

;or itfielf 

; set flag 

;if code for "+" 

;or "+*• itself 
jsltip - 

;else combine fraction & exponent 

;set flag for negative exponent 

;get next character 

;if numeric, gather exponent value 

;at end of exponent 

;if sign of exponent negative 

;get two's complement of exponent 
; combine 

;set code for found 

;if already set, thls is end of nuxaber 
;get exponent, base LO 

;mlnue 4 of diglts after *V’ 

;save 

;if 2 ero, no adjustment 

;if positive, multiply by 10 

;if negative, divide flp accu by 10 

;lncrement exponent, base 10 

;and repeat if not zero 

;lf positive, multiply flp accu by 10 
;decrement exponent, base 10 
;and jrepeat if not zero 
;get sign of flp # 

;if positive, 

;returo 
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4486 

; 



BD67 

4CB4BF 

4487 

BBD67 

JMP 

JBFB4 



4488 

» 



BD6A 

48 

4489 

BBD6A 

PHA 


BD6B 

245F 

44 90 


BIT 

Z5F 

BD6D 

1002 

4491 


BPL 

BBD71 

BD6P 

E65D 

4492 


INC 

Z5D 

BD71 

20E2BA 

4493 

BBD71 

JSR 

SBAE2 

BD74 

68 

4494 


PLA 


BD75 

38 

4495 


SEC 


BD76 

E930 

4496 


SBC 

'0 

BD78 

207EBD 

4497 


JSR 

JBD7E 

BD7B 

4C0ABD 

4498 


JMP 

BBDOA 



4499 

» 





4500 

;add 

signed integ 



4501 

> 



BD7E 

48 

4502 

JBD7E 

PHA 


BD7F 

2O0CBC 

4503 

- 

JSR 

SBCOC 

BD82 

68 

4504 


PLA 


BD83 

203CBC 

4505 


JSR JBC3C 

BD86 

A56E 

4506 


LDA 

Z6E 

BD88 

4566 

4507 


EOE 

Z66 

BOBA 

856F 

4508 


STA 

Z6P 

BD8C 

A661 

4509 


LDX 

Z61 

BD8E 

4C6AB8 

4510 


JMP 

JB86A 



4511 

» 





4512 

;get exponent of 



4513 

; 



BD91 

ASSE 

4514 

BBD91 

LDA 

Z5E 

BD93 

Ò90A 

4515 


CHP 

$0A 

BD95 

9009 

4516 


BCC 

bbdao 

BD97 

A964 

4517 


LDA 

$64 

BD99 

2460 

4518 


BIT 

Z60 

BP9B 

3011 

4519 


BKI 

BBDAE 

BD9D 

4C7EB9 

4520 


JMP 

BB97E 



4521 

» 



BDAO 

0a 

4522 

BBDA0 

ASL 

A 

BDA1 

0A 

4523 


ASL 

A 

BDA2 

18 

4524 


CLC 


BDA3 

655E 

4525 


ADC 

Z5E 

BDA5 

0A 

4526 


ASL 

A 

BDA6 

18 

4527 


CLC 


BDA7 

A000 

4528 


LDI 

$00 

BDA9 

717A 

4529 


ADC 

( Z7A) ,Y 

BDAB 

38 

4530 


SEC 


BBAC 

E930 

4531 


SBC 

'0 

BDAE 

85 SE 

4532 

BBDAE 

STA 

Z5E 

BDBO 

4C30BD 

4533 


JMP 

BBD30 


;else apply monadic 

;save numeric digit 
;if found 

;increment f of dlgits after ’V 
;multiply flp accu by 10 
jrestore numeric digit 

;convert from ASCII to binary 
;add signed Integer from A to flp accu 
;repeat for next character 

from A to flp accu 

;save integer 

;move rounded fip accu to 2nd flp accu 
jrestore integer 

;get signed # from A into flp accu 

;compute Exclusive OR of slgns 

;let Z and N reflect exponent 
;apply diadìc operator 

number froa a string 

;get exponent gathered so far 
;if -> 10 

; and sign of exponent ls positive 

;then overflow 
;prinr error 

;exponent * 2 
;exponent * 4 

;exponent * 5 
;exponent * 10 


;add current character 

jconvert from ASCII to binary 

; aave exponent 

;repeat for next chaiacter 
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4535 jeonstants for flp to strlng conversion 

4536 ; 

4537 ;999999.9 

BDB3 9B3EBC 4538 TBDB3 .BY $9B,$3E,$BC,$IF,$FD 
4539 ; 999999999 

BDB8 9E6E6B 4540 TBDB8 .BY $9E,$6E,$6B,$27,$FD 
4541 ; 1000000000 

BDBD 9E6E6B 4542 TBDBD .BY $9E,$6E,$6B,$28,$00 

4543 ; 

4544 ;priot IN follued by statement # 

4545 ; 

BDC2 A971 4546 SBDC2 LDA <TA371 ;set AY to IN message 

BDC4 A0A3 4547 LDY >TA371 

BDC6 20DABD 4548 JSR SBDDA ;print message 

BDC9 A53A 4549 LDA Z3A ;get current statement # loto AX 

BDCB A639 4550 LDX Z39 

4551 ; 

4552 jprlnt t from AX 

4553 ; 

BDCD 8562 4554 SBDCD STA Z62 ;move AX into flp accu 

BDCF 8663 4555 STX Z63 

BDD1 A290 4556 LDX $90 ;set exponent to 16 

BDD3 38 4557 SEC 

BDD4 2049BC 4558 JSR SBC49 ;pad out flp accu 

BDD7 20DFBD 4559 JSR SBDDF ;convert flp accu to strlng 

BDDA 4C1EAB 4560 SBDDA JMP SAB1E ;and go print strlng 

4561 ; 

4562 ;convert I in flp accu to string 

4563 ; 

BDDD A001 4564 SBDDD LDY $01 ;initial output index 

BDDF A920 4565 SBDDF LDA $20 ;set ffrst charactex to a space 

BDE1 2466 4566 BIT Z66 ;but if sign negative 

BDE3 1002 4567 BPL BBDE7 

BDE5 A92D 4568 LDA ;set first charactex to 

BDE7 99FFOO 4569 BBDE7 STA X0100-1.Y ;store sign into output area 

BDEA 8566 4570 STA Z66 ;set sign positive 

BDEC 8471 4571 STY Z71 ;save output index 

BDEE C8 4572 INY 

BDEF A930 4573 LDA '0 jassume 0 

BDF1 A661 4574 LDX Z61 ;if exponent 0 

BDF3 D003 4575 BNE BBDF8 

BDF5 4C04BF 4576 JMP JBF04 ;output 0 and end strlng 

4577 ; 

BDF8 A900 4578 BBDF8 LDA $00 ;clear exponent, base 10 

BDFA E080 4579 CPX $80 

BDFC F002 ,4580 BEQ BBEOO ;if exponent, base 2,-0 

BDFE B009 4581 BCS BBE09 jor < 0 

BEOO A9BD 4582 BBEOO LDA <TBDBD ;set AY to point to 1000000000 

BEO2 AOBD 4583 LDY >TBDBD 

BE04 2028BA 4584 JSR SBA28 ;multiply by flp accu 

BE07 A9F7 4585 LDA $F7 ;set exponent base 10 to -9 

BE09 855D 4586 BBE09 STA Z5D ;save exponent base 10 

BEOB A9B8 4587 BBEOB LDA <TBDBS 

BEOD AOBD 4588 LDY >TBDB8 ;set AY to index 999999999 

BEOF 205BBC 4589 JSR SBC5B ; compare flp accu to AY 

BE12 FOIE 4590 BEQ BBE32 ;if equal, no need to adjust exonent 

BE14 1012 4591 BPL BBE28 ;if flp accu >, adjust accordingly 

BE16 A9B3 4592 BBE16 LDA <TBDB3 ;if frlp accu <, 

BEI8 AOBD 4593 LDY >TBDB3 ;set AY to point to 999999.9 

BEIA 205BBC 4594 JSR SBC5B ;and compare flp accu to f lndexed by AY 
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BE1D 

F002 

4595 


BEQ 

BBE21 

BE1F 

100E 

4596 


BFL 

BBE2F 

BE21 

20E2BA 

4597 

BBE21 

JSR 

SBAE2 

BE24 

C65D 

4598 


DEC 

Z5D 

BE26 

D0EE 

4599 


BNE 

BBE16 

BE28 

20FEBA 

4600 

BBE28 

JSR 

SBAFE 

BE2B 

E65D 

4601 


INC 

Z5D 

BE2D 

DODO 

4602 


BNE 

BBE0B 

BE2F 

2049B8 

4603 

BBE2F 

JSR 

SB649 

BE32 

209BBC 

4604 

BBE32 

JSR 

SBC9B 

BE35 

A201 

4605 


LDX 

$01 

BE37 

A55D 

4606 


LDA 

Z5D 

BE39 

18 

4607 


CLC 


BE3A 

690A 

4608 


ADC 

$0A 

BE3C 

3009 

4609 


BMI 

BBE47 

BE3E 

C90B 

4610 


CMP 

$0B 

BE40 

B006 

4611 


BCS 

BBE48 

BE42 

69FF 

4612 


ADC 

$FF 

BE44 

AA 

4613 


TAX 


BE45 

A902 

4614 


LDA 

$02 

BE47 

38 

4615 

BBE47 

SEC 


BE48 

E902 

4616 

BBE48 

SBC 

$02 

BE4A 

855E 

4617 


STA 

ZSE 

BE4C 

865D 

4618 


STX 

Z5D 

BE4E 

8A 

4619 


TXA 


BE4F 

F002 

4620 


BEQ 

BBE53 

BE51 

1013 

4621 


BPL 

BBE66 

BE53 

A471 

4622 

BBE53 

LBY 

Z71 

BE55 

A92E 

4623 


LDA 

* m 

BE57 

CS 

4624 


1SY 

X0100-1.Y 

BE58 

99FF00 

4625 


STA 

BE5B 

8A 

4626 


TXA 


BE5C 

F006 

4627 


BEQ 

BBE64 

BE5E 

A930 

4628 


LDA 

'0 

BE60 

C8 

4629 


1NY 


BE61 

99FFOO 

4630 


STA 

X0100-1.X 

BE64 

8471 

4631 

BBE64 

STX 

Z71 

BE66 

A000 

4632 

BBE66 

LDX 

$00 

BE68 

A280 

4633 

SBE68 

LDX 

$80 

BE6A 

A565 

4634 

BBE6A 

LDA 

Z65 

BE6C 

18 

4635 


CLC 


BE6D 

7919BF 

4636 


ADC 

T8F16+3.Y 

BE70 

8565 

4637 


STA 

Z65 

BE72 

A564 

4638 


LDA 

Z64 

BE74 

7918BF 

4639 


ADC 

TBFI6+2.X 

BE77 

8564 

4640 


STA 

Z64 

BE79 

A563 

4641 


LDA 

263 

BE7B 

7917BF 

4642 


ADC 

TBF16+I.Y 

BE7E 

8563 

4643 


STA 

263 

BE80 

A562 

4644 


LDA 

262 

BE82 

7916BF 

4645 


ADC 

TBF16.Y 

BE85 

8562 

4646 


STA 

262 

BE87 

E8 

4647 


INX 


BE88 

BO04 

4648 


BCS 

BBE8E 

BE8A 

10DE 

4649 


BPL 

BBE6A 

BE8C 

3002 

4650 


EMI 

BBE90 

BESE 

30DA 

4651 

BBE8E 

BMI 

BBE6A 

BE90 

8A 

4652 

BBE90 

TXA 


BE91 

9004 

4653 


BCC 

BBE97 

BE93 

49 FF 

4654 


EOR 

$FF 


if flp accu <, no more adjustment 
else multiply flp accu by IO 
decreoent exponent base 10 
and repeat 

divide flp accu by 10 
lncrement'exponent, base 10 
repeat 

do half rounding of flp accu 
convert flp accu to 4 byte Integer 
set posltion of decimai polnt 
get exponent, base 10 

add 10 

if stili < 0, do exponentlal notatlon 
lf > 10 

do exponentlal notatlon 

else set new posltion of decimai polnt 
and set exponent base 10 accordlngly 

eorrect exponent, base 10 
save exponent 

save posltion of decimai polnt 

lf posltion of decimai polnt > 0 
no extra adjustmeut needed 
get output Index 
set decimai polnt 

store lt 

lf posltion of decimai polnt < 0 

set a 0 

and store it 
save output Index 
set initial cable Index 
inltial table phase negative 
add cable entry 

to fraction, byte 4 


•byte 3 


;byte 2 


«byte l 

;lncrement digit 

;if no overflow and positive, repeat 

;lf overflow and negative phase, xepeat 
;lf positive phase 

;get 10 - digit 
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BE95 

690A 

4655 


ABC $0A 

BE97 

69 2F 

4656 

BBE97 

ABC $2F 

BE99 

C8 

4657 


INY 

BE9A 

C8 

4658 


INY 

BE9B 

C8 

4659 


INY 

BE9C 

C8 

4660 


INY 

BE9D 

8447 

4661 


STY Z47 

BE9F 

A471 

4662 


LDY Z71 

BEAI 

C8 

4663 


INY 

BEA2 

AA 

4664 


TAX 

BEA3 

297F 

4665 


AND $7F 

BEA5 

99FFO0 4666 


STA X0100-I.Y 

BEA8 

C65D 

4667 


DEC Z5D 

BEAA 

D006 

4668 


BNE BBEB2 

BEAC 

A92E 

4669 


LDA 

BEAE 

C8 

4670 


INY 

BEAT 

99FFO0 

4671 


STA X0100-1.Y 

BEB2 

8471 

4672 

BBEB2 

STY Z71 

BEB4 

A447 

4673 


LDY Z47 

BEB6 

8A 

4674 


TEA 

BEB7 

49FF 

4675 


EOE $FF 

BEB9 

2980 

4676 


AND $80 

BEBB 

AA 

4677 


TAX 

BEBC 

C024 

4678 


CPY $24 

BEBE 

F004 

4679 


BEQ BBEC4 

BECO 

C03C 

4680 


CPY $3C 

BEC2 

D0A6 

4681 


BNE BBE6A 

SECA 

A471 

46B2 

BBEC4 

LDY Z71 

BEC6 

B9FF00 4683 

BBEC6 LDA X0100-1.Y 

BEC9 

88 

4684 


DEY 

BECA 

C930 

4685 


CMP '0 

BECC 

F0F8 

4686 


BEQ BBEC6 

BECE 

C92E 

4687 


CMP 

BEDO 

F001 

4688 


BEQ BBED3 

BED2 

C8 

4689 


INY 

BED3 

A92B 

4690 

BBED3 

IDA '+ 

BED5 

A65E 

4691 


LDX Z5E 

8ED7 

F02E 

4692 


BEQ BBF07 

BED9 

1008 

4693 


BPL BBEE3 

BEBB 

A900 

4694 


LDA $00 

BEDD 38 

4695 


SEC 

BEDE ESSE 

4696 


SBC Z5E 

BEEO 

AA 

4697 


TAX 

BEE1 

A92D 

4698 


LDA 

BEE3 

990101 

4699 

B3EE3 

STA X0101.Y 

BEE6 

A945 

4700 


LDA 'E 

EEE8 990001 

4701 


STA EOIOO.Y 

BEEB 

8A 

4702 


TXA 

BEEC 

A22F 

4703 


LDX $2F 

BEEE 

38 

4704 


SEC 

BEEF E8 

4705 

BBEEF 

INX 

BEFO 

E90A 

4706 


SBC $0A 

BEF2 

B0FB 

4707 


BCS BBEEF 

BEF4 

69 3A 

4708 


ADC $3A 

BEF6 

990301 

4709 


STA X0103.Y 

BEF9 

BA 

4710 


TXA 

BEFA 990201 

4711 


STA X0102.Y 

BEFD 

A900 

4712 


LDA $00 

BEFF 

990401 

4713 


STA X0104.Y 

BF02 

F008 

4714 


BEQ BBFOC 


jconvert to ASCII 


;point to next table entry 
;save table index 
;get output index 

;6ave digit 
jremove phase bit 
;store digit 

jdecrement po6Ìtion of decimai point 
;if positìon reached 
;set decimai point 

;and store it at next output location 
;save output index 
jrestore table index 

;Inverse phase bit 
;reset digit 

;if table index not at 9 (* 4) 

;and not at 15 (* 4) 

;repeat 

;if end of segment, rettore output index 
;get last digit 

;if a "(T 

;remove and repeat 
;if decimai point 
;remove„ but do net repeat 

;set 

;get exponent, base 10 
;if 2 ero, go end atring 

;if negative, 

;compute complement of exponent 
; and set 

;store sign of exponent in output area 
;set sign for exponential notatlon 
;and store it 

;get ASCII base for first exponent digit 
;lncrement 

jsubtract IO fron exponent 
;if not a borrow, repeat 
jconvert' second exponent digit to ASCII 
;store second digit 

;atore first digit 

;store end of string 
;&nd exit 
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BF04 99FF00 4715 JBF04 SIA X0100-1.Y ;store A at current output positlon 
BF07 A900 4716 BBF07 LBA $00 

BF09 990001 4717 _ STA X0100.Y {store end of string 

BFOC A900 4718 BBFOC LDA <X0100 

BFOE A001 4719 LDY >X0100 ;set AY to polnt to string text 

BF10 60 4720 RTS 

4721 ; 

4722 {constante for conversione 

4723 ; 

4724 {0.5 for roundlng, SQK and dummy variable 
BF11 800000 4725 TBF11 -BY $80,$00,$00,$00,$00 

4726 ; 

4727 {divisore for decimai converslon 

4728 ; 

4729 {-100000000 

BF16 FA0A1F 4730 TBF16 .BY $FA,$OA,$1F,$00 
4731 {+10000000 

BF1A 009896 4732 .BY $00,$98,$96,$80 

4733 ;-1000000 

BF1E FFFOBD 4734 .BY $FF,$F0,$BD,$C0 

4735 {+100000 

BF22 000186 4736 *.BY $00,$01,$86,$A0 

4737 {-10000 

BF26 FITm 4738 .BY $FF,$FF,$D8,$FO 

4739 {+1000 

BF2A 000003 4740 J .BY $00,$00,$03,$E8 
4741 {-100 

BF2E FFFFFF 4742 .BY $FF,$FF,$FF,$9C 

4743 {+10 

BF32 000000 4744 .BY $00,$00,$00,$OA 

4745 ;-l 

BF36 FFFFFF 4746 .BY $FF,$FF,$FF,$FF 

4747 { 

4748 {divisore for time converslon 

4749 -, 

4750 {-10 * 6 * 10 * 6 * IO * 60 

BF3A FFDFOA 4751 .BY $FF,$DF,$0A,$8O 

4752 {+6 * 10 * 6 * IO * 60 
BF3E 00034B 4753 .BY $00,$03,$4B,$C0 

4754 {-10 * 6 * 10 * 60 
BF42 FFFF73 4755 -BY $FF,$FF,$73,$60 

4756 {+6 * 10 * 60 

BF46 00000E 4757 .BY $00,$00.$OE,$10 

4758 ;-10 * 60 

BF4A FFFFFD 4759 .BI $FF,$FF,$FD,$A8 

4760 ;+60 

BF4E 000000 4761 -BY $00,$00,$00,$3C 

4762 ; 

4763 {unused area follovs 

4764 { 

BF52 ECAAAA 4765 .BY $EC,$AA,$AA,$AA,$AA,$AA,$AA,$AA 

BF5A AAAAAA 4766 .BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA 

BF62 AAAAAA 4767 .BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA 

BF6A AAAAAA 4768 .BY $AA,$AA,$AA,$AA,$AA,$AA,$AA 
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4770 ;"SQR* command 

4771 ; 

BF71 200CBC 4772 WBF71 JSR SBCOC ;nove rounded flp accu into 2nd flp accu 

BF74 A911 4773 LDA <TBF11 

BF76 AOBF 4774 LDY >TBF1X ;let AY point to value 0.3 

BF78 20A2BB 4775 JSR SBBA2 ;Ioad flp accu from AY 

4776 ; 

4777 ;“EXPONENT" operarion 

4778 ; 


8F7B F070 

4779 

WBF7B 

BEQ 

BBFED 

BF7D 

A569 

4780 


LDA 

Z69 

BF7F 

D003 

4781 


BNE 

BBF84 

BF8I 

4CF9B8 

4782 


JMP 

JB8F9 



4783 

; 



BF84 

A24E 

4784 

BBF84 

LDX 

<Z4E 

BF86 

AOOO 

4785 


LDY 

>Z4e 

BF88 

20D4BB 4786 


JSR 

SBBD4 

BF8B 

A56E 

4787 


LDA 

ZSE 

BF8D 

100F 

4788 


BPL 

BBF9E 

BF8F 20CCBC 

4789 


JSR 

SBCCC 

BF92 

A94E 

4790 


LDA 

<Z4E 

BF94 

AOOO 

4791 


LDY 

>Z4E 

BF96 

205BBC 

4792 


JSR 

SBC5B 

BF99 

D003 

4793 


BNE 

BBF9E 

BF9B 

98 

4794 


TYA 


BF9C A407 

4795 


LDY 

Z07 

BF9E 

20FEBB 

4796 

BBF9E JSR 

SBBFE 

BFA1 

98 

4797 


TYA 


BFA2 

48 

4798 


PHA 


BFA3 

20EAB9 

4799 


JSR 

SB9EA 

BFA6 

A94E 

4800 


LDA 

<Z4E 

BFA8 

AOOO 

4801 


LDY 

>Z4E 

BFAA 2028BA 4802 


JSR 

SBA28 

BFAD 

20EDBF 

4803 


JSR 

BBFED 

BFBO 

68 

4804 


PLA 


BFB1 

4A 

4805 


LSR 

A 

BFB2 

900A 

4806 


BCC 

BBFBE 



4807 

» 





4808 

;"M1NUS" operato; 



4809 

9 



BFB4 


4810 WBFB4 

m 

* 

BFB4 

AS61 

4811 

JBFB4 

LDA 

Z61 

BFB6 

F006 

4812 


BEQ 

BBFBE 

BFB8 

A3 66 

4813 


LDA 

Z66 

BFBA 49FF 

4814 


EOR 

$FF 

BFBC 

8566 

4815 


STA 

Z66 

BFBE 

60 

4816 

BBFBE 

RTS 



; 1f right operand zero, do EXP(O) 
;if left operand zero 

;set result zero 


;set AY to Z4E 
;store flp accu there 
;get sign of left operand 
;if negative 
jperform INI 

;set AY to Z4E agaia 

; compare AY vith flp accu 

;if equal, right operand ■ integer 

;set positive 

;set sign change flag 

;nove second flp accu into flp accu vith 

;save sign change flag 
; perforai LOG 

;set AY to Z4E 
;ttultiply AY by flp accu 
;perform EXP 

;restore sign change flag 
;shift into carry 

;return if not set, else do monadic 


;if number ■ 0 
;so is result 

;else invert sign 
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4818 ;floating point nuobers fot EXP 

4819 ; 

4820 ;1/L0G(2) 

BFBF 8138AA 4821 TBFBF .BY $81,$38,$AA,$3B,$29 

BFC4 07 4822 .BY $07 ;polynome cable for EXP 


4823 

BFC5 713458 4824 
4825 

BFCA 74167E 4826 
4827 

BFCF 772FEE 4828 
4829 

BFD4 7AID84 4830 
4831 

BFD9 7C6359 4832 
4833 

BFDE 7E75FD 4834 
4835 

BFE3 803172 4836 
4837 

BFE8 810000 4838 
4839 


0.0000214987637 

.BY $71,$34,$58,$3E,$56 
0.000143523140 

•BY $74,$16,$7E,$B3,$1B 
0.00134226348 

.BY $77,$2F,$EE,$E3,$85 
0.00961401701 

.BY $7A,$1D,$84,$1C,$2A 
0.0555051269 

■BY $7C,$63,$59,$58,$0A 
0.240226385 

■BY $7E,$75,$FD,$E7,$C6 
0.693147186 

.BY $80,$31,$72,$18,$10 

1.0 

,.BY $81,$00,$00,$00,$00 


4840 

4841 


"EXP" command 


BFED 4842 WBFED - * 


BFED A9BF 4843 BBFED EDA <TBFBF 

BFEF AOBF 4844 LDY 5TBFBF ;let AI point CO 1/L0C{2) 


BFF1 2028BA 4845 JSR 5BA28 ;nultlply AY tines flp accu 

BFF4 A570 4846 U)A Z70 


BFF6 6950 4847 ADC $S0 ;according to guard byte + 80 

BFF8 9003 4848 BCC BBFFD 


BFFA 2023BC 4849 JSR SBC23 ;round flp accu 

BFFD 4COOEO 4850 BBFFD JMP XE000 ;continue In part 2 
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BA38F 

A38F 

503 





BA3A4 

A3A4 

489 





BABBO 

A3B0 

495 





BA3B7 

A3B7 

487 

498 




BA3DC 

A3DC 

535 





BA3E8 

A3E8 

547 





BA3EC 

A3EC 

541 

543 

553 



BA3F3 

A3F3 

530 





BA412 

A412 

574 





BA416 

A416 

583 





BA421 

A421 

589 





BA434 

A4 34 

573 

576 

594 



BA435 

A435 

563 

567 

595 

597 

2854 

BA456 

A456 

631 





BA474 

A4 74 

638 





BA480 

A480 

654 

716 

744 



BA49C 

A49C 

657 





BA4D7 

A4D7 

694 





BA4DF 

A4DF 

699 

705 

709 



BA4ED 

A4ED 

667 





BA508 

A508 

724 





BA522 

A522 

741 





BA53C 

A53C 

772 





BA544 

A544 

759 





BA55F 

A55F 

755 





BA562 

A562 

784 





BA576 

A576 

780 





BA582 

A582 

802 

847 




BA58E 

ASSE 

798 





BA5A4 

A5A4 

811 





BA5AC 

A5AC 

815 





BA5B6 

A5B6 

829 





BASB8 

A5B8 

863 





BA5C7 

A5C7 

865 





BA5C9 

A5C9 

800 

604 

809 

813 

817 

BA5DC 

A5DC 

841 





BA5DE 

A5DE 

843 





BA5E5 

A5E5 

856 





BA5EE 

ASEE 

807 





BA5F5 

ASFS 

831 





BA5F9 

A5F9 

861 





BA609 

A609 

838 





BA617 

A617 

903 

1298 




BA62E 

A62E 

890 





BA637 

A637 

892 





BÀ640 

A640 

884 





BA641 

A641 

889 

896 

897 

909 

980 

BA68D 

A68D 

927 

974 




BA6A4 

A6A4 

971 

972 




BA6BB 

A6BB 

978 





BA6C9 

A6C9 

986 

1033 




BA6E6 

A6E6 

1007 





BA6E8 

A6E8 

1009 





8A6EF 

A6EF 

1061 





BA6F3 

A6F3 

1040 

1042 

1044 



BA700 

A700 

1018 





BA714 

A714 

998 

1010 

1023 



BA717 

A717 

1025 





BA72C 

A72C 

1055 






852 
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BA72F 

A72F 

1054 



BA737 

A737 

1051 

1063 


BA753 

A753 

1071 



BA79F 

A79F 

1111 



BA7BE 

A7BE 

1130 



BA7CE 

A7CE 

1139 



BA804 

A804 

1165 



BA807 

A807 

1135 



BA80B 

A80B 

1183 



BA80E 

A80E 

1167 



BA827 

A827 

1196 

1923 


BA82B 

A82B 

1163 



BA832 

A832 

1206 



BA849 

A849 

1216 



BA854 

A854 

1227 



BA862 

A862 

1236 



BA870 

A870 

1211 

1233 


BA87D 

A87D 

1254 



BA8BC 

A8BC 

1288 



BA8C0 

A8C0 

1293 

1295 


BA8DL 

A8D1 

1310 



BA8E3 

A8E3 

1299 



BA8E8 

A8E8 

1398 



BA8EB 

A8EB 

1316 



BA8FB 

A8FB 

1382 

1800 

1912 

BA905 

A905 

1342 

1360 

1362 

BA911 

A911 

1366 



BA919 

A919 

1365 



BA937 

A937 

1373 



BA940 

A940 

1377 



BA948 

A948 

1387 



BA953 

A953 

1426 



BA957 

A957 

1396 

1406 


BA95F 

A95F 

1400 



BA96A 

A96A 

1420 



BA99F 

A99F 

1442 



BA9D6 

A9D6 

1465 



BA9D9 

A9D9 

1463 



BA9ED 

A9ED 

1513 



BAA07 

AA07 

1506 



BAA24 

AA24 

1494 



BAA27 

AA27 

1525 



BAA2C 

AA2C 

1488 



BAA3D 

AA3D 

1537 



BAA4B 

ÀA4B 

1536 

1541 

1544 

BAA52 

AA52 

1545 

1548 


BAA90 

AA90 

1589 



BAA9A 

AA9A 1617 



BAA9D 

AA9D 

1622 



SAAE5 

AAE5 

1640 

1698 


BAAE7 

AAE7 

1605 

1633 

1692 

BAAE8 

AAE8 

1612 



BAAEE 

AAEE 

1656 



BAAF8 

AAF8 

1607 

1610 


BABOE 

ABOE 

1659 



BABOF 

ABOF 

1668 



BAB10 

AB10 

1679 



BAB13 

AB13 

1614 

1671 


BAB19 

AS19 

1675 



BAB28 

AB28 

1697 

1699 
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BAB42 

AB42 

1704 

BAB57 

AB57 

1718 

BAB5B 

AB5B 

1720 

BAB5F 

AB5F 

1666 

BAB62 

AB62 

1717 

BAB&B 

AB6B 

1727 

BAB92 

AB92 

1744 

BABB? 

ABB7 

1758 

BABD6 

ABD6 

1798 

BABEA 

ABEA 

1788 1791 

BACO 3 

AC03 

1805 

BACOD 

ACOD 

1796 

BAC41 

AC41 

1834 

BACA A 

AC4A 

1842 

BAC4D 

AC4D 

1839 

BAC51 

AC51 

1832 1917 

BAC65 

AC65 

1851 

BAC71 

AC71 

1856 

BAC72 

AC72 

1859 

BAC7D 

AC7D 

1868 

BÀC89 

AC89 

1849 

BAC9D 

AC9D 

1879 1881 

BACB8 

ACB8 

1840 1916 

BACHI 

ACCI 

1900 

BACDF 

ACDF 

1893 

BACEA 

ACEA 

1922 

BACFB 

ACFB 

1927 1929 

BAD27 

AD27 

1946 

BAD32 

AD32 

1904 

BAD35 

AD35 

1951 

BAD75 

AD75 

1994 

BAD78 

AB78 

1977 

BAD96 

AH 9 6 

2016 

BAD97 

AD97 

2012 

BAD99 

AD99 

2013 

BADA4 

ADA4 

2023 

BADD7 

ADD7 

2039 2041 

BADE8 

ADE8 

2058 

BADFO 

ADFO 

2087 

BADF9 

ADF9 

2090 

BAE07 

AE07 

2053 

BAE11 

AE11 

2082 

BAE19 

AE19 

2074 

BAE30 

AE30 

2047 

BAE58 

AE58 

2054 2056 

BAESB 

AE5B 

2076 

BAE5D 

AE5D 

2068 

BAE64 

AE64 

2135 

BAE66 

AE66 

2077 2089 

BAE80 

AE80 

2133 

BAE8A 

AE8A 

2188 

BAE8F 

AE8F 

2184 

BAH 9 2 

AE92 

2165 

BAE9A 

AE9A 

2169 

BAEAD 

AEAD 

2173 

BAEC6 

AEC6 

2194 

BAECC 

AECC 

2190 

BAEE3 

AEE3 

2200 

BAEEA 

AEEA 

2217 

BAEF1 

AEF1 

2221 2364 3008 
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BAFOD 

AEOD 

2186 



BAFOF 

AFOF 

2202 



BAF27 

AF27 

2256 



BAF5C 

AF5C 

2275 2277 

2279 


BAF5D 

AF5D 

2271 



BAF6E 

AF6E 

2293 



BAF92 

AF92 

2306 



BAFAO 

AFAO 

2304 2308 

2327 

2329 

BAFD1 

AEDI 

2344 



BB02E 

B02E 

2406 



BB056 

B056 

2432 2434 



BB05B 

■B05B 

2449 



BB066 

B066 

2442 



BB072 

B072 

2444 2446 

2451 


BB07B 

B07B 

2457 



BB07E 

B07E 

2467 



BB09C 

B09C 

25C1 



BB09F 

B09F 

2478 



BBOAF 

BOAT 

2485 



BBOBO 

BOBO 

2490 2492 



BBOBA 

BOBA 

2487 



BB0C4 

B0C4 

2494 



BBOD4 

B0D4 

2497 



BBODB 

BODB 

2499 



BBOE7 

B0E7 

2514 



BBOEF 

BOEF 

2540 



BBOF1 

B0F1 

2538 



BBOFB 

BOFB 

2524 



BEI 09 

B109 

2529 



BB11C 

B11C 

2548 



BBUB 

B11D 

2526 



BB123 

B123 

2569 



BB128 

B128 

2559 



BB138 

B138 

2577 



BB13B 

B13B 

2567 2571 



BB143 

B143 

2575 



BB159 

B159 

2588 



BB185 

B185 

2533 



BB18F 

B18F 

2622 



BBLAO 

B1A0 

2635 



BBICC 

B1CC 

2658 



BBLCE 

BICE 

2664 



BB1DB 

B1DB 

2704 



BB21C 

B21C 

2737 



BB228 

B228 

2718 



BB237 

B237 

2725 



BB245 

B245 

2750 2853 



BB24A 

B24A 

2745 



BB24D 

B24D 

2728 



BB261 

B261 

2720 



BB274 

B274 

2762 



BB27D 

B27D 

2767 



BB286 

B286 

2796 



BB296 

B296 

2779 



BB2B9 

B2B9 

2803 



BB2CS 

B2C8 

2815 2818 



BB2CD 

B2CD 

2812 



BB2F2 

B2F2 

2870 



BB308 

B308 

2848 



BB30B 

B30B 

2798 2805 

2911 

2922 



BB30E 

B30E 

2847 



BB30F 

B30F 

2852 



BB320 

B320 

2860 



BB331 

B331 

2874 



BB337 

B337 

2877 



BB34B 

B34B 

2830 

2960 


BB35F 

B35F 

2924 



BB378 

B378 

2914 



BB384 

B384 

2930 



BB3AE 

B3AE 

3020 



BB418 

B418 

3026 



BB449 

B449 

3048 



BB497 

B497 

3111 



BB4A4 

B4A4 

3109 



BB4A8 

B4AS 

3107 



BB4A9 

B4A9 

3113 



BB4BS 

B4B5 

3120 



BB4BF 

B4BF 

3124 



BB4CA 

B4CA 

3126 

3382 3480 3508 


BB4D2 

B4D2 

3184 



BB4D5 

B4D5 

3137 



BB4F6 

B4F6 

3189 



66301 

B501 

3167 



BBSOB 

B50E 

3171 



BBS 16 

E516 

3170 

3173 


BB544 

Bi*^ 

3211 



BB54D 

B54D 

3209 



BB559 

B559 

3223 



BB561 

B561 

3219 



BB566 

B566 

3221 



BE56E 

BS6E 

3252 

3254 


BB572 

B572 

3268 



BB57D 

B57D 

3231 

3233 


BB5AE 

B5AE 

3262 



BB5BO 

B5BO 

3270 



BB5B8 

BSB8 

3266 



BB5DC 

B5DC 

3294 



BB5E6 

B5E6 

3300 



BB5F6 

B5F6 

3276 

3279 3287 3295 

3297 3299 3302 

BB601 

B601 

3315 

3325 


BB6 SD 

B65D 

3369 



BB690 

B690 

3411 



BB699 

B699 

3405 



BB6A2 

B6A2 

3416 



BB6D5 

B6D5 

3449 



BB6D6 

B6D6 

3440 

3442 3444 


BB6EB 

B6EB 

3459 

3461 


BB70C 

B70C 

3487 



BB70D 

B70D 

3535 



BB70E 

B70E 

3538 

3540 


BB72S 

B725 

3504 



BB748 

B748 

3S24 



BB798 

B798 

3528 

3579 3593 3642 

3645 

BB7B5 

B7B5 

3600 



BB7CD 

B7CD 

3613 



BB83C 

B83C 

3683 



BB840 

B840 

3690 



BB848 

B848 

3731 



BB862 

B862 

3748 



BB86F 

B86F 

3723 




no 



BB893 B893 3735 

BBB97 B897 3744 

BB8A3 B8A3 3714 3734 

BB8AF B8AF 3760 

BB8D7 B8D7 3778 4195 

BB8DB B8DB 3796 

BB8FE B8FE 3754 

BB91D B91D 3828 

BB929 B929 3784 

BB946 B946 3835 

BB97D B97D 3866 3871 3873 3875 

BB97E B97E 3837 4080 4520 

BB985 B985 3896 3897 

BB9A6 B9A6 3912 

BB9AC B9AC 3903 

BB9BA B9BA 3901 

BB9F1 B9FI 3941 

BB9F4 B9F4 3942 

BBA30 BA30 3973 

BBA61 BA61 4023 

BBA7D BA7D 4002 

BBAC4 BAC4 4059 

BBACF BACF 4066 

BBADA BADA 4056 4063 

BBADF BASF 4060 4075 4089 4094 4125 

BBAF8 BAF8 4086 

BBB29 BB29 4154 

BBB3F BB3F 4130 4133 4136 4153 4155 

BBB4C BB4C 4141 4173 

BBB5D BB5D 4148 

BBB7A BB7A 4144 

BBB7E BB7E 4145 

BBB8A BB8A 4117 

BBC02 BC02 4270 

BBCll BCU 4281 

BBCiA BOIA 4288 4290 4292 

BBC2F BC2F 4343 

BBC38 BC38 4298 4302 

BBC92 BC92 4345 4349 4353 4357 

BBC98 BC98 4365 

BBCAF 8CAF 4376 

BBCBA BOBA 4363 

BBCBB BCBB 4384 

BBCE9 BCE9 4372 

BBCF2 BCF2 4404 

BBCF7 BCF7 4432 

BB006 BD06 4435 

BBDOA BDOA 4437 4469 4498 

BBDOD BDOD 4433 

BBDOF BDOF 4439 

BBD2E BD2E 4449 4451 

BBD30 BD30 4453 4455 4533 

BBD33 BD33 4447 

BBD35 BD35 4456 

BBD41 BD41 4443 

BBD47 BD47 4445 4461 

BBD52 BD52 4478 

BBD5B BD5B 4475 4482 

BBD62 BD62 4474 4479 

BBD67 BD67 4484 
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BBD6A 

BD6A 

4441 


BBD71 

BD71 

4491 


BBD91 

BD91 

4459 


BBDAO 

BDAO 

4516 


BBDAE 

BOAE 

4519 


BBDE7 

BDE7 

4567 


BBDF8 

BDF8 

4575 


BBEOO 

BEOO 

4580 


BBE09 

BEO 9 

4581 


BBEOB 

BEOB 

4602 


BBE16 

BEf6 

4599 


BBE21 

BE21 

4595 


BBE28 

BE28 

4591 


BBE2F 

BE2F 

4596 


BBE32 

BE32 

4590 


BBE47' 

BE47 

4609 


BBE48 

BE48 

4611 


BBES3 

BE53 

4620 


BBE64 

BE64 

4627 


BBE66 

BE66 

4621 


BBE6A 

BE6A 

4649 

4651 

BBE8E 

BE8E 

4648 


BBE90 

BE90 

4650 


BBE97 

BE97 

4653 


BBEB2 

BEB2 

4668 


BBEC4 

BEC4 

4679 


BBEC6 

BEC6 

4686 


BBED3 

BED3 

4688 


BBEE3 

BEE3 

4693 


BBEEF 

BEEF 

4707 


BBF07 

BF07 

4692 


BBFOC 

BFOC 

4714 


BBF84 

BF84 

4781 


BBF9E 

BF9E 

4788 

4793 

BBFBE 

BFBE 

4806 

4812 

BBFED 

BFED 

4779 

4803 

BBFFD 

BFFD 

4848 


JA437 

A437 

786 

4185 

1237 

JA469 

A4 69 

1228 


JA7AE 

A7AE 

1159 

1276 

JA7E1 

A7E1 

659 

1151 

JA7EF 

A7EF 

1402 


JA84B 

A84B 

1140 


JA897 

A897 

1258 


JASaO 

A8A0 

1187 

1275 

JA8F8 

A8F8 

1793 

2987 

JA971 

A971 

1445 


JAA68 

AA68 

1551 


JAAAO 

ÀAAO 

1596 


JAAA2 

AAA2 

1677 


JAACA 

AACA 

788 


JAB4D 

AB4D 

1882 


JABB5 

ABB5 

1583 

1792 

JAC1S 

AC15 

1895 


JAC91 

AC91 

1873 


JABA9 

ADA9 

2100 


JADB8 

ADB8 

3383 


JADBB 

ADBB 

2050 


JADFA 

ADFA 

2247 



1237 1320 1729 1953 2018 2240 2742 2964 3139 3371 3880 
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JAE43 

AE43 

1104 




JAF08 

AF08 

1180 

1322 

1725 2102 

2236 2479 2572 3049 

JAF28 

AF28 

2170 




JAFA7 

AFA7 

2222 




JAFD6 

AFD6 

2362 




J8061 

6061 

2415 




JB1D1 

B1D1 

2515 




JB248 

B248 

1526 

2668 

3585 3943 


JB2EA 

B2EA 

2751 




JB391 

B391 

2212 

2301 

2401 2954 


JB3A2 

B3A2 

3568 

3583 

3667 


JB3F4 

B3F4 

2218 




JB44F 

B44F 

2988 




JB46F 

B46F 

2288 




JB52A 

B52A 

3351 




JB606 

B606 

3234 




JB63D 

B63D 

2059 




JB706 

B706 

3516 




JB86A 

B86A 

3711 

4510 



JB8D2 

B8D2 

4325 

4415 



JB8F7 

B8F7 

3601 

3831 

4078 


JB8F9 

B8F9 

4782 




JB8FB 

BSFB 

4067 




JB936 

B936 

3818 




JB938 

B938 

4293 




JB983 

B983 

3997 




JBA8B 

BA8B 

3974 




JBB12 

BB12 

4108 




JBB4F 

BB4F 

4170 




JBB8F 

BB8F 

3992 

4182 



JBBDO 

BBDO 

1481 

1971 



JBC31 

BC31 

4367 




JBC3C 

BC3C 

2331 

2459 

4505 


JBC44 

BC44 

2947 




JBC4F 

BC4F 

2312 




JBD49 

BD49 

4465 




JBD7E 

BD7E 

1529 

3966 

4497 


JBF04 

BF04 

4576 




JBFB4 

BFB4 

4487 




SA38A 

A38A 

1070 

1313 

1950 


SA3B8 

A3B8 

727 

2592 



SA3BF 

A3BF 

3341 




SA3FB 

A3FB 

1079 

1263 

2032 


SA408 

A408 

508 

2756 

2806 


SA533 

A533 

714 

743 



SA560 

A560 

649 

1808 



SA579 

A579 

658 

664 



SA613 

A613 

666 

976 



SA659 

A659 

713 

742 

1255 


SA660 

A660 

1257 




SA67A 

A67A 

632 




SA68E 

A68E 

922 




SA7ED 

A7ED 

1158 

1389 



SA81D 

A81D 

939 




SA82C 

A82C 

999 

1125 



SA906 

A906 

1080 

1337 

1799 1897 


SA909 

A909 

1282 

1381 



SA96B 

A96B 

663 

975 

982 1281 

1404 

SASA5 

A9AS 

1069 

1176 



SA9C2 

A9C2 

1877 
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SA9DA A9DA 1872 

SAA1D AÀ1D 1499 1503 

SAA86 AA86 1582 

SAAD? AAD7 522 1000 1604 

SAR1E AB1E 635 642 1733 1932 4560 

SAB21 AB21 1598 1620 1782 

SAB3B AB3B 1621 1678 1807 

SABA5 AB45 623 1806 1843 

SAR47 AB47 628 1016 1062 1638 1642 1694 

SABCE ASCE 1768 1778 

SABF9 ABF9 1786 1844 

SACOF ACOF 1756 

SAD24 AD24 1944 1996 

SAD8A AD8A 1095 1113 3042 3590 3634 

SAD8D AD8D 1094 2069 2136 2372 2656 2974 2999 3009 3074 

SAD8F AD8F 2348 3360 3422 

SAD90 AD90 1462 2405 

SAD9E AD9E 1370 1459 1615 2000 2225 2346 2655 

SAE20 AE20 2071 

SAE33 AE33 2098 

SAE38 AE36 1115 

SAE83 AE83 2033 3359 

SAEBD AEBD 1779 

SAEF7 AEF7 2706 2975 3544 

SAEFA AEFA 2224 2345 2970 

SAErD AEFD 1894 2347 2463 3525 3636 

SAEFF AEFF 1093 1186 1375 1454 1591 1748 1765 17ei 2977 2993 

SAF14 AF14 2274 2303 

SAF84 AF84 2280 2309 

SB08B BOSB 1450 1820 1947 2265 2973 

SB090 B090 2465 

SB092 B092 2996 

SB113 B113 2168 2477 2486 2491 

SB194 B194 2746 2755 

SB1B2 B1B2 2685 

SB1B8 B1BS 3591 

SB1BF B1BF 1470 2206 2383 2391 2647 

SB34C B34C 2791 2861 

SB355 B355 2882 

SB3A6 B3A6 1742 1783 2969 

SB3E1 B3E1 2968 3003 

SB47S B475 1555 3128 3373 

SB47D B47D 3474 3494 

SB487 B487 1619 1683 2196 3081 

SB48D B48D 1870 

SB4F4 B4F4 3089 

SB526 B526 584 2932 3185 

SB5BD B5BD 3222 

SB5C7 B5C7 3210 3269 

SB67A B67A 1560 3374 

SB688 B688 3131 

SB68C B68C 3378 3507 

SB6A3 B6A3 3570 

SB6A6 B6A6 1492 1687 2420 2931 

SB6AA B6AA 2426 3377 3381 3497 
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3904 

3905 

3906 



zo: 

0002 

3145 

3772 

3773 

3889 

3892 

3907 
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3890 

3908 
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3766 

3767 

3885 

3888 

3909 
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1356 

1357 

1422 
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2386 
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3096 

3108 



4414 
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0008 
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848 
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1354 

1355 
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820 
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2869 
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2712 

2744 

2778 

2829 
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2078 
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2270 

2418 

2482 

2496 

2676 
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3151 

3572 








ZOE 

OOOE 

1455 

1876 

2292 

2483 

2503 

2674 
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808 

844 

996 
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1043 
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3183 

3187 
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4598 

4601 

4606 

4618 

466 7 

25E 

005E 

2281 

4464 

4470 

4473 

4477 

4481 

4514 

4525 

4532 

4617 

4691 

4696 

Z5F 

005F 

522 

672 

678 

680 

691 

739 

881 

883 

888 

895 

899 

902 



997 

1002 

1005 

1024 

1027 

1030 

1031 

1300 

2522 

2528 

2532 

2536 



2580 

2600 

2603 

2606 

2608 

2610 

2612 

2614 

2618 

2633 

2715 

2722 



2727 

2730 

2732 

2735 

2749 

2761 

2766 

2775 

2787 

2790 

2822 

2824 



2828 

2835 

2846 

2851 

2896 

2899 

3202 

3301 

3303 

3332 

4467 

4468 



4490 












260 

0060 

526 

676 

688 

882 

1032 

1303 

2521 

2581 

2621 

2634 

2716 

2736 



2827 

3203 

3298 

3304 

3334 

4268 

4278 

4457 

4460 

4518 



Z61 

0061 

587 

1376 

1496 

1561 

1562 

2125 

2155 

2421 

2431 

2435 

2662 

3092 



3115 

3140 

3643 

3710 

3733 

3736 

3798 

3830 

3834 

3836 

3945 

3949 



4050 

4058 

4065 

4093 

4121 

4122 

4124 

4217 

4257 

4287 

4297 

4322 



4344 

4371 

4402 

4412 

4509 

4574 

4811 






262 

0062 

1098 

1099 

2123 

2321 

2422 

2448 

2944 

3090 

3102 

3142 

3477 

3777 



3783 

3786 

3815 

3817 

3827 

3838 

3850 

3852 

3876 

3990 

4129 

4167 



4188 

4214 

4254 

*312 

4316 

4348 

4392 

4393 

4394 

4419 

4554 

4644 



4646 












Z63 

0063 

1517 

2121 

2318 

2423 

2945 

3091 

3103 

3144 

3774 

3785 

3788 

3812 



3814 

3826 

3839 

3853 

3855 

3874 

3988 

4132 

4164 

4190 

4209 

4249 



4314 

4392 

4470 

4955 

4641 

4643 







264 

0064 

1472 

1516 

1534 

1539 

1546 

1549 

1554 

2119 

2210 

2252 

22 58 

2266 



2295 

2298 

2317 

2333 

2353 

2384 

2397 

2648 

2697 

2843 

2863 

3082 



3147 

3357 

3368 

3423 

3592 

3647 

3771 

3787 

3790 

3809 

3811 

3825 



3840 

3856 

3858 

3872 

3986 

4135 

4161 

4192 

4206 

4246 

4321 

4356 



4421 

4638 

4640 










265 

0065 

1399 

1475 

1518 

1542 

1550 

2117 

2207 

2254 

2260 

2267 

2319 

2334 



2351 

2387 

2392 

2649 

2699 

2845 

2867 

30B3 

3148 

3355 

3424 

3521 



3537 

3539 

3594 

3648 

3768 

3789 

3792 

3806 

3808 

3824 

3841 

3859 



3861 

3670 

3984 

4138 

4158 

4194 

4203 

4243 

4320 

4362 

4413 

4422 



4634 

4637 
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Z66 

0066 

1096 

1497 

1967 

2106 

2153 

2437 

2443 

2657 

3641 

3705 

3707 

3738 



3799 

3847 

3849 

4042 

4070 

4073 

4212 

4252 

4265 

4299 

4324 

4329 



4342 

4364 

4375 

4390 

4407 

4408 

4507 

4566 

4570 

4813 

4815 


Z67 

0067 

4436 

4483 











Z68 

0068 

3893 

4267 

4279 

4379 

4386 

4396 







Z69 

0069 

2142 

2411 

2412 

3729 

4049 

4055 

4780 






Z6A 

006A 

2144 

2409 

2410 

3816 

4014 

4046 

4128 

4152 

4166 

4168 



Z6B 

006B 

2146 

3813 

4011 

4038 

4131 

4151 

4163 

4165 





Z6C 

006C 

2148 

2424 

2427 

2447 

3810 

4008 

4035 

4134 

4150 

4160 

4162 


Z6D 

006D 

2150 

2425 

2428 

3807 

4005 

4032 

4137 

4149 

4157 

4159 



Z6E 

006E 

2152 

2407 

3708 

3737 

4041 

4044 

4264 

4506 

4787 




Z6F 

006F 

1558 

2154 

3100 

3106 

3117 

3129 

3362 

3366 

3379 

3389 

3392 

3395 



3709 

3753 

4043 

4069 

4091 

4106 

4508 






Z70 

0070 

1559 

2273 

3101 

3119 

3123 

3130 

3149 

3364 

3380 

3726 

3746 

3750 



3765 

3791 

3793 

3805 

3823 

3842 

3862 

3864 

3865 

3886 

3900 

3982 



4020 

4180 

4218 

4259 

4271 

4282 

4289 

4323 

4360 

4406 

4846 


Z71 

0071 

818 

833 

1498 

1501 

1502 

1510 

2283 

2770 

2792 

2811 

2838 

2858 



2868 

2912 

3118 

3604 

3626 4571 

4622 

4631 

4662 

4672 

4682 


ZÌI 

0072 

2758 

2793 

2810 

2817 

2839 

2857 

2871 

2913 

3122 

3605 

3627 


Z7A 

007A 

650 

794 

822 

857 

869 

963 

1083 

1126 

1134 

1137 

1143 

1146 



1149 

1150 

1212 

1240 

1266 

1291 

1302 

1330 

1340 

1341 

1359 

1736 



1823 

1829 

1845 

1853 

1865 

1884 

1890 

1903 

1906 

1909 

1983 

2022 



2025 

2081 

2084 

2191 

2235 

2985 

3031 

3034 

3052 

3602 

3607 

3628 



4529 












Z7B 

007B 

651 

867 

966 

1085 

1127 

1152 

1213 

1241 

1264 

1292 

1305 

1332 



1343 

1737 

1824 

1830 

1B46 

1866 

1885 

1891 

1985 

2024 

2083 

2192 



2983 

3029 

3037 

3054 

3603 

3612 

3629 
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1 .L 

2 .« 

3 ;CBM-64-Part Tuo 


0000 

0001 


0002 
0003 
0004 
0005 
0006 
0007 
000A 
0012 
0013 
0016 
0018 
0022 
0023 
002B 
002C 
002D 
002E 
0033 
0034 
0037 
0038 
0049 
004A 
004E 
0053 
0054 
0056 
0057 
005C 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
006E 
006F 
0070 
0071 
0072 
0073 


5 ; 

6 ZOO 

7 Z01 

8 ; 

9 ; 

10 ; 

11 ; 

12 i 

13 ; 

14 ; 

15 ; 

16 Z02 

17 Z03 

18 Z04 

19 Z05 

20 Z06 

21 Z07 

22 ZOA 

23 Z12 

24 Z13 

25 Z16 

26 Z18 

27 Z22 

28 Z23 

29 Z2B 

30 Z2C 

31 Z2D 

32 Z2E 

33 Z33 

34 Z34 

35 237 

36 Z38 

37 249 

38 Z4A 

39 Z4E 

40 Z53 

41 Z54 

42 Z56 

43 Z57 

44 Z5C 

45 Z61 

46 Z62 

47 263 

48 Z64 

49 Z65 

50 Z66 

51 Z67 

52 Z68 

53 Z69 

54 Z6E 

55 Z6F 

56 Z7C 

57 Z71 

58 Z72 

59 Z73 


- $00 ;6510 data direction register 

- $01 ;6510 1/0 register 

bit 0 (output) 0 - RAM at $AOOO-$BFFF (BASIC area) 

bit 1 (output) 0 - RAM at SEOOO-$EFFF (Kernal area) 

bit 2 (output) 0 “ accese CRT shapes at $D000-$DFFF 

bit 3 (output) cassette urite line 

bit 4 (input) cassette sense line 

bit 5 (output) cassette motor control 

bit 6 unused 

bit 7 unused 


$02 

$03 

$04 

$05 

$06 

$07 

$0A 

$12 

$13 

$16 

$18 

$22 

$23 

$2B 

$2C 

$20 

$2E 

$33 

$34 

$37 

$38 

$49 

$4A 

$4E 

$53 

$54 

$56 

$57 

$SC 

$61 

$62 

$63 

$64 

$65 

$66 

$67 

$68 

$69 

$6E 


dummy address for offset 
fixed-float vector 
high byte of sane 
fixed/float vector 
high byte of same 
search character 
0“load, l*verify 
slgn flag 
CMD file oumber 

pointer into temporary string stack 
high byte of last temp string vector 
utility pointer area 

pointer to start of BASIC 
high byte of sane 
pointer start of varlables 
high byte of same 

pointer to start of string Storage 

high byte of same 

pointer to limit of aemory 

high byte of same 

file/device save area 

secofcd file/devlce save area 

mise, work area 

default step value 

JMP vector for functions 

mise, nvmeric work area 

floatlng point accu fi- exponeni 
flp # i - mantissa 


flp t 1 - sign 

series evaluatlon Constant pointer 
flp eccu t 1 overflov 
flp accu t 2 thru Z6E 


$6F ;slgn comparison flp accu fi vs accu # 2 

$70 ;flp accu t> 1 guard byte 

$71 ;table pointer for EXP/S1N/ATN 

$72 ;high byte of same 

$73 ;character fetch code, beginnlng address 
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007A 

60 

Z7A 

c= 

$7 A 

current character address 

007B 

61 

Z7B 

s 

$7B 

high byte of same 

.OOSB 

62 

Z8B 

e 

$8B 

RND seed value 

0090 

63 

Z90 

« 

$90 

status word ST 

0091 

64 

291 

a 

$91 

keyboard scan results 

0092 

65 

Z92 

= 

$92 

tape timing speed correction 

0093 

66 

Z93 

■= 

$93 

load=Q, verify“l 

0094 

67 

Z94 

- 

$94 

serial output deferred character flag 

0095 

68 

Z95 

« 

$95 

serial 'deferred character 

0096 

69 

Z96 

- 

$96 

tape sync establlshed flag 

0097 

70 

Z97 

- 

$97 

register save area 

0098 

71 

Z98 


$98 

number of files open 

0099 

72 

Z99 

« 

$99 

input device 

009A 

73 

Z9A 

a 

S9A 

output device 

099B 

74 

Z9B 

» 

$9B 

tape character parity 

0C9C 

75 

Z9C 

*= 

$9C 

tape byte available flag 

0090 

76 

Z9D 


$9D 

direct/run mode (80/00) 

009E 

77 

Z9E 

=* 

$9E 

tape pass 1 error log/char buffet- 

009F 

78 

Z9F 

X 

$9F 

tape, pass 2 error log 

OOAO 

79 

ZAO 

» 

$A0 

jiffy clock - high byte 

00A1 

80 

ZA1 

■= 

$A1 

jiffy clock - middle byte 

00 A2 

81 

ZA2 

- 

$A2 

jiffy clock - low byte 

00a3 

82 

ZA3 

e 

$A3 

serial bit count/EOl flag 

00 A4 

83 

ZA4 

« 

$A4 

serial byte read/tape cycle count 

OOA5 

84 

ZA5 


$A5 

serial bit count/tape hdr block count 

OOAó 

85 

ZA6 

» 

$A6 

tape buffer pointer 

00A7 

86 

ZA7 

«= 

$A7 

tape leader count/RS-232 input bit 

OOaS 

87 

ZA8 

- 

$A8 

tape urite new byte/read error/blt count 

00a9 

88 

ZA9 

» 

$a9 

tape urite cycle/read error/start bit 

OOAA 

89 

ZAA 

■ 

$AA 

RS-232 input byte/tape scan/hdr count ' 

OCAB 

90 

ZAB 

s 

$AB 

urite leader length/read checksum/parity 

OOAC 

91 

ZAC 

a 

$ac 

tape buffer/scrolling/I-O pointer 

OOAD 

92 

ZAD 


$AD - 

high byte of same 

OOAE 

93 

ZAE 


$AE 

tape end address/end of 1/0 area 

ooaf 

94 

ZAF 

m 

$AF 

high byte of same 

OOBO 

95 

ZEO 

a 

$B0 

tape speed correction value 

OOB1 

56 

ZB1 


■ $B1 

uork area for tape speed correction 

OOB2 

97 

ZB2 

a 

$B2 

tape buffer pointer 

00B3 

98 

ZB3 

* 

$B3 

high byte of same 

00B4 

99 

ZB4 

« 

$B4 

RS-232 transmit bit count/tape sync 

0085 

100 

ZB5 

■M 

$B5 

RS-232 next bit to send/saved tape sync 

00B6 

101 

ZB6 

- 

$B6 

read char error/RS-232 output buffer 

00B7 

102 

ZB7 

« 

$B7 

number of characters in file name 

00B8 

103 

ZB8 

a 

$B8 

current logicai file 

00B9 

104 

ZB9 

*= 

$B9 

current secondary address 

OOBA 

105 

ZBA 

a 

$BA 

current device 

OOBB 

106 

ZBB 


$BB 

pointer to file nane 

OOBC 

107 

ZBC 

•= 

$BC 

high byte of same 

OOBO 

108 

ZBD 

m 

$BD 

RS-232 xmit parity/tape read-write buffe 

OOBE 

109 

ZBE 

- 

$BE 

tape phase 

OOBF 

110 

ZBF 


$BF 

tape input byte buffer 

OOCO 

111 

ZCO 

« 

$C0 

tape motor interlock 

00C1 

112 

ZC'l 

= 

$C1 

1/0 start address/uork address 

00C2 

113 

ZC2 


$C2 

high byte of same 

00C3 

114 

ZC3 

m 

$C3 

kernal setup pointer 

0004 

115 

ZC4 

m 

$C4 

high byte of sane 

00C5 

116 

ZC5 


$C5 

last key pressed 

00C6 , 

117 

ZC6 


$C6 

keyboard buffer count 

00C7 

118 

ZC7 

« 

$C7 

reverse video suitch 

00C8 > 

119 

ZC8 

E 

$C8 

end of line pointer for input 
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OOC9 

120 ZC9 

» 

$C9 

OOCA 

121 ZCA 

m 

$CA 

OOCB 

122 ZCB 

m 

$CB 

OOCC 

123 ZCC 

sm 

$CC 

OOCD 

124 ZCD 

■a 

$CD 

OOCE 

125 ZCE 


$C£ 

OOCF 

126 ZCF 

B 

$CF 

OODO 

127 ZDO 

b 

$D0 

00D1 

128 ZD1 

B 

$D1 

OOD2 

129 ZD2 

B 

$02 

OOD3 

130 ZD3 

B 

$D3 

00D4 

131 ZD4 

■a 

$D4 

00D5 

132 ZD5 

B 

$D5 

00D6 

133 ZD6 

m 

$06 

OOD7 

134 ZD7 

m 

$07 

0008 

135 ZD8 

m 

$D8 

00D9 

136 ZD9 

«= 

$D9 

OODA 

137 ZDA 

B 

$DA 

00F1 

138 ZF1 

B 

$F1 

00F3 

139 ZF3 


$83 

00F4 

140 ZF4 

m 

$F4 

00F5 

141 ZF5 

B 

$F5 

OOF6 

142 ZF6 

B 

$F6 

OOF7 

143 ZF7 

m 

$F7 

00F8 

144 ZF8 

m 

$F8 

OOF9 

145 ZF9 

B 

SF9 

OOFA 

146 ZFA 

B 

$FA 


;lnput cursor, line number 
;ìnput cursor, position on line 
;key pres6ed - $40 if no key 
;cursor enable - 0 - flash 
;cursor flash timing countdown 
;character under cursor 
;cursor blink phase 

;screen-kbd flag/screen line length 
jpolnter co screen line 
;hlgh byte of seme 
;poaltlon of cursor on line 
jstring flag 

;screen line length current line 
;cursor line number 
;character-blt buffer/checksuo 
;# of outstandlng Inserts 
;screen line table thru $F0 
> 

;dummy screen link 

jcolor memory pointer 

;hlgh byte of sane 

;keyboard table address 

;high byte of ssme 

;RS-232 receive buffer base address 

;hlgh byte of same 

;RS-232 transmlt buffer base address 
;hlgh byte of same 
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0014 

148 

X0014 


$0014 

0079 

149 

X0079 


$0079 

0100 

150 

X0100 


$0100 

01FC 

151 

X01FC 


$01FC 

01FD 

152 

X01FD 


$01FD 

0200 

153 

X0200 


$0200 

0259 

154 

X0259 


$0259 

0263 

155 

X0263 


$0263 

026D 

156 

X026D 


$026D 

0277 

157 

X0277 


$0277 

0281 

158 

X0281 


$0281 

0282 

159 

X0282 


$0282 

0283 

160 

X0283 


$0283 

0284 

161 

X0284 


$0284 

0285 

162 

X0285 


$0285 

0286 

163 

X0286 

= 

$0286 

0287 

164 

X0287 


$0287 

0288 

165 

X0288 


$0288 

0289 

166 

X0289 


$0289 

028A 

167 

X028A 


$028A 

028B 

168 

X028B 


$028B 

028C 

169 

X028C 


$028C 

028D 

170 

X028D 

«= 

$0280 

C2SE 

171 

X028E 


S028E 

028F 

172 

X028F 


$028F 

0290 

173 

X0290 

■= 

$0290 

0291 

174 

X0291 


$0291 

0292 

175 

X0292 


$0292 

0293 

176 

X0293 


$0293 

0294 

177 

X0294 


$0294 

0295 

178 

X0295 


$0295 

0296 

179 

X0296 


$0296 

0297 

180 

X0297 


$0297 

0298 

181 

X0298 


$0298 

0299 

182 

X0299 


$0299 

029A 

183 

X029A 


$02 9A 

029B 

184 

X029B 


$029B 

029C 

IBS 

X029C 


$029C 

029D 

186 

X029D 


$029D 

029E 

187 

X029E 


$029E 

029F 

188 

X029F 


$029F 

02A0 

189 

X02AO 


$02A0 

02A1 

190 

X02A1 


502A1 

02A2 

‘191 

X02A2 


$Ù2A2 

02À3 

192. 

X02A3 


$02A3 

02A4 

193 

X02A4 


$02A4 

02A5 

194 

X02A5 


$02A5 

02A6 

195 

X02A6 


$02A6 

0300 

196 

X0300 


$0300 

030C 

197 

X030C 


S030C 

030D 

198 

X030D 


$030D 

030E 

199 

X030E 


$030E 

030F 

200 

X030F 


$030F 

0310 

201 

X0310 


$0310 

0311 

202 

X0311 

e 

$0311 

0312 

203 

X0312 


$0312 

0314 

204 

X0314 


$0314 

0315 

205 

X0315 


$0315 

0316 

206 

X0316 


$0316 

0318 

207 

X0318 


$0318 


integer value (SYS address) 

fetch eurrent eharacter 

flp to ASCII work area/tape error log 

prefix to line in input buffer 

high byte o£ sane 

BASIC input buffer 

logicai file cable 

device t cable 

secondary address cable 

keyboard buffer 

start of memory for operating System 
high byte of same 

top of memory for operating System 
high byte of same 

serial bus timeout flag (not used) 
eurrent color code 
color under cursor 
screen memory page 

maximum sire of keyboard buffer (10) 
key repeat flag ($8X«repeat all keys) 
repeat key frequency counter 
repeat key delay counter 
keyboard shift/control flag 
last keyboard shift pattern 
address of keyboard decode routine 
high byte of same 
shift mode switch ($80”locked) 
auto scroll flag ($00«on) 

RS-232 Control Register 
RS-232 Command Register 
non-standard bit time 
high byte of same 
RS-232 Status Register 
number of bits to send/receive 
baud rate 
high byte of same 

RS-232 recelve buffer input pointer 
RS-232 recelve buffer output pointer 
RS-232 transmit buffer input pointer 
RS-232 transmit buffer output pointer 
IRQ vector save area 
high byte of same 
internai ICR2 activity register 
internai CUBI activity register 
1CR1 save area 
CRAI save area 

pos flrst 40 collimo line after cursor 

DS/Intl machine flag ($00 - OS) 

error message link 

save area for A register 

save area for X register 

save area for Y register 

save area for SR (flag) register 

USR jump link 

lov byte of USR jump address 
high byte of USR jump address 
IRQ vector 

high byte if IRQ vector 
BRK vector 
NMI vector 





031A 

208 

X031A 


$031A 

031C 

209 

X031C 


$031C 

031E 

210 

X031E 


$031E 

0320 

211 

X0320 


$0320 

0322 

212 

X0322 


$0322 

0324 

213 

X0324 


$0324 

0326 

214 

X0326 


$0326 

0328 

215 

X0328 


$0328 

032 A 

216 

X032A 


$032A 

032C 

217 

X032C 


$032C 

0330 

218 

X0330 


$0330 

0332 

219 

X0332 


$0332 


;OPEN vector 
;CLOSE veccor 
jsec Input vector 
;6et output vector 

;restore 1/0 devices to default vector 

;lnput vector 

;output vector 

;test STOP Rey vector 

;GET vector 

;close all flles and channels vector 
;load RAM vector 
;save RAM vector 
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8000 

221 

X8000 

* 

$8000 

8002 

222 

X8002 

as 

$8002 

8004 

223 

X8004 

= 

$8004 

A0Q0 

224 

XAOOO 


SA000 

A002 

225 

XA002 


$A002 

A364 

226 

TA364 


$A364 

A376 

227 

TA376 


$A376 

A408 

228 

XA408 


$A408 

A4 37 

229 

XA437 


$A437 

A4 3 A 

230 

XA43A 


$A43A 

A4 74 

231 

XA474 


$A474 

A4S3 

232 

WA463 


$A483 

A5.2A 

233 

XA52A 

X= 

$A52A 

A533 

234 

XA533 


$A533 

A57C 

235 

WA57C 


$A57C 

A644 

236 

XA644 


$A644 

A663 

237 

XAfe63 


$A663 

A677 

238 

XA677 


$A677 

A61A 

239 

XA67A 


$A67a 

A68S 

240 

XA68E 


$A68E 

A71A 

241 

WA71A 


$A71A 

A7E4 

242 

WA7E4 


$A7E4 

AB1E 

243 

XAB1E 


5AB1E 

AD8A 

244 

XAD8A 


SAD8A 

AD9E 

245 

XAD9E 


$AD9E 

AE86 

246 

WAE86 


$AE86 

AEFD 

247 

XAEFD 


$AEFD 

AF08 

248 

XAP08 


$AF08 

B1AA 

249 

WB1AA 


SB1AA 

B248 

250 

WB248 


$B248 

B39I 

251 

WB391 


$B39l 

B6A3 

252 

XB6A3 


$B6A3 

B79E 

253 

XB79E 


$B79E 

B7F7 

254 

XB7F7 


$B7F7 

B849 

255 

XB849 


$B849 

B850 

256 

XB850 


$B850 

B8S3 

257 

XB853 


$B853 

B867 

258 

XB867 


$B867 

B8D7 

259 

XB8D7 


$B8D7 

B9BC 

260 

TB9BC 


$B9BC 

EA28 

261 

XBA28 


$BA28 

BAB9 

262 

XBAB9 


SBAB9 

BAD4 

263 

XBAD4 


SBAD4 

BB<J7 

264 

XBB07 


$BB07 

bbof 

265 

XBB0F 


$BB0F 

BBA2 

266 

XBBA2 


$BBA2 

BBC7 

267 

XBBC7 


$BBC7 

BBC A 

268 

XBBCA 


$BBCA 

BBD4 

269 

XBBD4 


SBBD4 

BC0C 

270 

XBC0C 


$BC0C 

BCOF 

271 

XBC0F 


$BCOF 

BC2B 

272 

XBC2B 


$BC2B 

BCCC 

273 

XBCCC 


SBCCC 

BDCD 

274 

XBDCD 


$BDCD 

BFB4 

275 

XBFB4 


$BFB4 

BFC4 

276 

TBFC4 


$BFC4 


cartridge RESET vector 

cartrldge RESTORE (varm start) vector 

cartridge identifier 

begin BASIC vector 

BASIC vara start vector 

nessage OK 

message READY 

array area overflov check 

error aessage link 

print error aessage 

print READY, do vara start 

standard BASIC warm start 

reset program ptrs and relink BASIC 

relink BASIC 

crunch tokens 

perfora NEW 

perfora CER 

perfora RESTORE, reset stack/pgm ptrs 

reset stack and program pointers 

re-initialize currenc character ptr 

print tokens 

execute a statement 

print strìng from AY 

get next non-string value 

evaluate expression 

fetch arithoetlc element 

check next character for 

print SYNTAX Error 

flp-fixed routine 

print IU.EGAL QUANTITY Error 

fixed-flp routine 

de-allocate temporary scring Storage 
fetch integer value in X, check range 
convert flp to integer 
half round flp accu 

subtract flp accu from # indexed by AY 

perfora diadic minus 

add flp accu to t indexed by AY 

perfora postshift 

flp literal l 

multiply flp accu times # indexed by AY 

add exponents 

check sign of flp accu 

divide flp accu by # indexed by AY 

divide # indexed by AY by flp accu 

load flp accu «ith f indexed by AY 

store flp accu at Z5C-60 

store flp accu at ZS7-SB 

store flp accu in area indexed by XY 

move rounded flp accu into 2nd flp accu 

move flp accu into 2nd flp accu 

get sign of flp accu loto A 

perfora INT 

print t from AX 

minus operator 

polynome table for EXP 
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278 

;6567 

video chip 



279 

; 




DOOO 

280 

xoooo 


$DOOO 

;6567 video chip base addtess 

0011 

281 

XO011 


$0011 

;bit 4 - 0 to dlsable video chip 

D012 

282 

XD012 


$D012 

;Raster Reglster 

D016 

283 

XD016 


$0016 

;blt 5 “ 0 to reset vìdeo chip 

0018 

284 

XD018 


$D018 

jmemory pointers for video chip 

0019 

285 

XD019 


$D019 

jlnterrupt Reglster 

D021 

286 

XD021 


$0021 

; Background # 0 color 


287 

» 





288 

; 6581 

Sound Interface Devlce 


289 

* 




D418. 

290 

XD418 

■ 

$D418 

;mode/volume for SXD chip 


291 

» 





292 

;6S26 

CIA1 



293 

5 




DCOO 

294 

XDCOO 


SDCOO 

;PA1 port A 

DC01 

295 

XDC01 


$0001 

;PB1 port B 

DC02 

296 

XDC02 


$DC02 

;DDRAl direction bits for port A 

DC03 

297 

XDC03 


$DC03 

iDDRBl direction bits for port B 

DC04 

298 

XDC04 


$0004 

;TAL1 timer A lov 

DCOS 

299 

XDC05 


$0005 

;TAH1 timer A high 

DC06 

300 

XDC06 


$0006 

;TBX.l timer B lov 

DC07 

301 

XDC07 


$DC07 

;TBHl timer B high 

DCOD 

302 

XDCOO 


SDCOD 

;ICR1 interrupt control reglster 

DCOE 

303 

XDCOE 


$DC0E 

;CRA1 control reglster for port A 

ocor 

304 

XDCOF 


$DCOF 

;CRS1 control reglster for port B 


305 

» 





306 

;6526 

C1A2 



307 

» 




DOOO 

308 

XOOOO 


$DDOO 

;PA2 port A 

D001 

309 

XDD01 


$0001 

;FB2 port B 

DD02 

310 

XDD02 


SD002 

;OORA2 direction bits for port A 

DD03 

311 

XDD03 


$DD03 

;DDRB2 direction bits for port B 

DD04 

312 

XDD04 


$0004 

;TAL2 timer A lov 

0005 

313 

XDD05 


$DD05 

;TAU2 timer A high 

DD06 

314 

XDD06 


$DD06 

;TBL2 timer B lov 

OD07 

315 

XDD07 


$DD07 

;T8H2 timer B high 

DDOD 

316 

XOOOO 


$DDOD 

;ICR2 Interrupt control reglster 

DDOE 

317 

XDDOE 


$DDOE 

;CRA2 control reglster for port A 

DDOF 

318 

XDDOF 


$DDOF 

;CR£2 control reglster for port B 
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320 [continuation of 

321 ; 


E000 


322 

.OR 

$£000 

E000 

8556 

323 

STA 

256 

E002 

200FBC 

324 

JSR 

XBCOF 

E005 

A561 

325 

LDA 

Z61 

E007 

C988 

326 

CMP 

$88 

E009 

9003 

327 

BCC 

BEOOE 

E00B 

20D4BA' 

328 

BE00B JSR 

XBAD4 

EOOE 

20CCBC 

329 

BE00E JSR 

XBCCC 

EOI 1 

A507 

330 

LDA 

207 

E013 

18 

331 

CLC 


E014 

6981 

332 

ADC 

$61 

E016 

F0F3 

333 

BEQ 

BEOOB 

E018 

38 

334 

SEC 


EOI 9 

E901 

335 

SBC 

$01 

E01B 

«8 

336 

PHA 


E01C 

A205 

337 

LDX 

$05 

EOI E 

B569 

338 

BEOIE LDA 

Z69.X 

E020 

B461 

339 

LDY 

Z61,X 

E022 

9561 

340 

STA 

261,X 

E024 

9469 

341 

STY 

269,X 

E026 

CA 

342 

DEX 


E027 

10F5 

343 

BPL 

BEOIE 

E029 

A556 

344 

LDA 

256 

E02B 

8570 

345 

STA 

270 

E02D 

2053B8 

346 

JSR 

XB853 

E030 

20B4BF 

347 

JSR 

XBFB4 

E033 

A9C4 

348 

LDA 

<TB'FC4 

E035 

AOBF 

349 

LDY 

5TBFC4 

E037 

2059E0 

350 

JSR 

SE059 

E03A 

A900 

351 

LDA 

$00 

E03C 

856F 

352 

STA 

26F 

E03E 

68 

353 

PLA 


E03F 

20B9BA 

354 

JSR 

XBAB9 

E042 

60 

355 

RTS 



"EXP” routine 


; set guard byte for second flp accu 
jcopy fip accu into second flp accu 
;get exponent 
;if -> 8 

;then either 0 or overflow 
[perforo INT 

;get least significane byte 
;i£ » 127 

;then also overflow 

[remove excess 128 
;and save it 

;oove second flp accu into flp accu 
[and vice versa 


[restore copied guard byte 

;apply diadic 

[then oinus operator 

[Set AY to polynome table 
;and coopute polynome 

[clear XOR of signs 
[add saved integrai part 
[to exponent 
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357 jcompute odd degrees for SIN and ATN 
356 ; 


E043 

8571 

359 JE043 

STA 

271 

;save table pointer 

EOA 5 

8472 

360 

STY 

272 



E047 

20CABB 

361 

JSR 

XBBCA 

jstore flp accu ac 

Z57 

E04A 

A957 

362 

LDA 

<257 

;set AY to 257 


EOAC 

2028BA 

363 

JSR 

XBA28 

;multiply flp accu 

by ti indexed by AY 

EOAF 

205DE0 

364 

JSR 

SE05D 

jcompute polynome 


E052 

A957 

365 

LDA 

<257 

;set AY to Z57 


E054 

AOOO 

366 

LDY 

>257 



E056 

«-18BA 

367 

JMP 

XBA28 

jmultlply flp accu 

by 257 


36 S ; 

369 ;computepolynome according to table indexed by AY 




370 

; 




E059 

8571 

371 

SE059 

STA 

271 

;save table pointer 

E05B 

8472 

372 


STY 

Z72 


E05D 

20C7BB 

373 

SE05D 

JSR 

XBBC7 

;store flp accu at Z5C 

E060 

B171 

374 


LDA 

<Z71),Y 


E062 

8567 

375 


STA 

Z67 

;save order 

E064 

A471 

376 


LDY 

Z71 


E066 

C8 

377 


INY 


;add 1 to table pointer 

E067 

98 

378 


TYA 



E068 

D002 

379 


BNE 

BE06C 


E 06 A 

E672 

380 


INC 

Z72 


E06C 

8571 

381 

BE06C 

STA 

Z71 

;save updated pointer 

E06E 

A472 

382 


LDY 

Z72 

;and restore AY 

E070 

2028BA 

383 

BE070 

JSR 

XBA28 

;multiply flp accu by f indexed by AY 

E073 

A571 

384 


LDA 

271 

;restore AY 

E07 5 

A472 

385 


LDY 

Z72 


E077 

18 

386 


CLC 



E078 

6905 

387 


ADC 

$05 

;add 5 to table pointer 

E07A 

9001 

388 


BCC 

BEC7D 


E07C 

C8 

389 


INY 



E07D 

8571 

390 

BE07D 

STA 

271 

;save table pointer 

E07f 

8472 

391 


STY 

Z72 


E081 

2067B8 

392 


JSR 

XB867 

;add ? indexed by AY to flp accu 

E084 

A95C 

393 


LDA 

<Z5C 

E086 

AOOO 

394 


LDY 

>Z5C 

;set AY to Z5C 

EOE 8 

C667 

395 


DEC 

Z67 

;decrement order 

E08A 

D0E4 

396 


BNE 

BEO 70 

;and repeat unti! 0 

E08C 

60 

397 


RTS 
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399 ;floating point numbers for RND 

400 ; 

401 ; flp number for multiplication 

E08D 983544 402 TE08D . BY $98,$35,$44,$7A,$00 

403 ; flp number for addition 
E092 6828B1 404 TE092 .BY $68,$28,$B1,$46,S00 


E097 202BBC 

405 

406 

407 

408 

f 

^RND” coma and 

WE097 JSR XBC2B 

E09A 3037 

409 

BM1 BE0D3 

E09C 0020 

410 

BNE BE0BE 

E09E 20F3FF 

411 

JSR SFFF3 

E0A1 8622 

412 

SXX Z22 

E0A3 8423 

413 

STY Z23 

E0A5 A004 

414 

LDY $04 

E0A7 B122 

415 

LDA (Z22),Y 

E0A9 8562 

416 

STA Z62 

E0AB C8 , 

417 

1NY 

E0AC B122 

418 

LDA (Z22),Y 

EOAE 8564 

419 

STA Z64 

EOBO A008 

420 

LDY $08 

E0B2 B122 

421 

LDA (Z22),Y 

E0B4 8563 

422 

STA Z63 

E0B6 C8 

423 

IKY 

E0B7 B122 

424 

LDA (Z22),Y 

E0B9 8565 

425 

STA 265 

E0BB 4CE3E0 

426 

JMP JE0E3 


427 

» 

BOBE A98B 

428 

BEOBE LDA <Z8B 

E0C0 AOOO 

429 

LDY >Z8B 

E0C2 20A2BB 

430 

JSR XBBA2 

E0C5 A98D 

431 

LDA <TE08D 

E0C7 aOEO 

432 

LDY >TE08D 

E0C9 2028BA 

433 

JSR XBA28 

E0CC A992 

434 

LDA CTE092 

EOCE AOEO 

435 

LDY >TE092 

E0D0 2067B8 

436 

JSR XB867 

EOD3 A665 

437 

BE0D3 LDX 265 

EOO5 A562 

438 

LDA Z62 

E0D7 8565 

439 

STA Z65 

E0D9 8662 

440 

STX Z62 

EODB A663 

441 

LDX Z63 

E0DP A564 

442 

LDA 264 

E0DF 8563 

443 

STA Z63 

E0E1 8664 

444 

STX Z64 

E0E3 A900 

445 

JEOE3 LDA $00 

E0E5 8566 

446 

STA Z66 

EOE7 A561 

447 

LDA 261 

EOE9 8570 

448 

STA Z70 

EOEB A980 

449 

LDA $80 

E0ED 8561 

450 

STA Z61 

E0EF 20D7B8 

451 

JSR XB8D7 

E0F2 A28B 

452 

LDX <Z8B 

E0F4 AOOO 

453 

LDY >Z8B 

E0F6 4CD4BB 

454 

SE0F6 JKP XBBD4 


;get slgn of flp acca into A 
;if < 0 use parameter as seed 
;1f > 0 use old seed 
;get base address of I/O devices 


;TAL1 timer value 


;TAH2 timer vaue 


;tenths of a second 


; seconda 

jgarble flp set froo CIA1 timer/clock 

;let AY point to 28B (current seed) 

;load flp acca from Z8B-Z8F 
;set AY to RND factor 

;multiply flp accu times RND factor 
;ser AY to RND addition value 

;add RND factor to result in flp accu 
;exchange byte 4 and byte l 


; exehauge byte 2 and byte 3 


;set sign positive 


;set guard byte 
;move 0 to exponent 

jperform postshift 

;set XY to RND seed value 

;store flp accu as nev seed 
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456 

;hsndle errore for 

direct I/O calle® from 

BASIC interpreter 



457 

1 





E0F9 

C9F0 

458 

BE0F9 CHP 

$F0 

;if open for RS-232, 



EOFB 

D007 

459 

BNE 

BE104 




EOFD 

84 38 

460 

STV 

Z38 

;set nev top of tnemory limit 


EOFF 

8637 

461 

STX 

237 




£101 

4C63A6 

462 

JMP 

XA663 

;CLR, back to basic 





463 

! 





E104 

AA 

464 

BEI04 TAX 





£105 

D002 

465 

BNE 

BE109 

;if no error message indexed, 


EX07 

A21E 

466 

LDX 

S1E 

;select BREAK message 



E109 

4C37A4 

467 

BE109 JMP 

XA437 

;go prlnt message 





468 

( 





E10C 

20D2FF 

469 

JSR 

SFFD2 

;output a character 



E10F 

B0E8 

470 

BCS 

BE0F9 

;if no errore. 



EHI 

60 

471 

RTS 


; return 





472 

; 





E112 

20CFFF 

473 

JSR 

SFFCF 

;input a character oc 

current 

device 

Eli 5 

B0E2 

474 

BCS 

BE0F9 

;lf no errore. 



E117 

60 

475 

RTS 


; return 





476 

i 





E118 

20ADE4 

477 

JSR 

SE4AD 

;set output device 



E11B 

BOOC 

478 

BCS 

BE0F9 

;if no errors. 



£110 

60 

479 

RTS 


;return 





480 

j 





E11E 

20C6FF 

481 

JSR 

SFFC6 

;set input device 



E121 

B0D6 

482 

BCS 

BE0F9 

;if no errors. 



E123 

60 

483 

RTS 


jreturn 





484 

! 





£124 

20E4FF 

485 

JSR 

SFFE4 

;get a character from 

current 

device 

E127 

BODO 

486 

BCS 

BE0F9 

;if no errors. 



E129 

60 

487 

RTS 


; return 
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489 

:"sys 

command 



490 

9 



E12A 

208AAD 

491 

WE12A 

JSR 

XAD8A 

E12D 

20F7B7 

492 


JSR 

XB7F7 

E130 

A9EI 

493 


LDA 

>WE147-1 

E132 

48 

494 


PHA 


E133 

A946 

495 


LDA 

<UE147-1 

E135 

48 

496 


PHA 


E136 

AD0F03 

497 


LDA 

X030F 

E139 

48 

498 


PHA 


E13A 

AD0C03 

499 


LDA 

X030C 

E13D 

AE0D03 

500 


LDX 

X030D 

E140 

ACOE03 

501 


LDY 

X03OE 

E143 

28 

502 


PLP 


E144 

6C1400 

503 


JMP 

X 

o 

o 



504 

» 



E147 

08 

S05 

WE147 

PHP 


E148 

8D0C03 

506 


STA 

X030C 

E14B 

8E0D03 

507 


STX 

X030D 

E14E 

8C0E03 

508 


STY 

X030E 

E151 

68 

509 


PLA 


E1S2 

8D0F03 

510 


STA 

X030F 

E155 

60 

511 


•RTS 



;get next non-string value 
;eonvert to lnteger in Z14/15 


;set return address 

;save flag register on stack 

jrestore A, X & Y 

;to status of exit fron last SYS 

;do SYS routine 

;save flag register on stack 
;save A 
;s ave X 
;save Y 

;save Flag register 
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513 

;"SAVE" cotumand 



514 

; 


E156 20D4E1 

515 

UE156 JSR SE1D4 

;set file pararaeters 

E159 A62D 

516 

LDX 220 

; set end address of BASIC text 

E15B A42E 

517 

LDY Z2E 


E15D A92B 

518 

EDA <Z2B 

;set address of stare address 

E15F 20D8FF 

519 

JSR SFFD8 

;s«ve RAM to a device 

E162 B095 

520 

BCS BE0F9 

;lf no errors. 

E164 60 

521 

RTS 

; return 


522 

» 



523 

;"VERIFY" command 



524 

* 


E165 A901 

525 

WE165 LDA $01 

;set value for Verify 

E167 2C 

526 

.BY $2C 

;skip next instruction 


527 




528 

;"LOAD" command 



529 

» 


E168 A900 

530 

WE168 LDA $00 

;set value for Load 

E16A 830A 

531 

STA 20A 

;aet load/verify flag 

E16C 20D4E1 

532 

JSR SE1D4 

;fetch file parameters 

E16F A50A 

533 

LDA ZOA 

;fetcb load/verify flag 

E171 A62B 

534 

LDX 22B 

;aet start address in X3T 

E173 A42C 

535 

LDY Z2C 


E175 20D5FF 

536 

JSR SFFD5 

;load devlce to RAM 

E178 B057 

537 

BCS BE1D1 

;exit upon error 

E17A A50A 

538 

LDA ZOA 


E17C F017 

539 

BEQ BE195 

jif verify pass. 

E17E A21C 

540 

LDX SIC 

;index Verify Error message 

E180 20B7FF 

541 

JSR SFFB7 

;read ST 

E183 2910 

542 

AND $10 

;if ST indicates a Dismatch, 

E185 D017 

543 

BNE BE19E 

;go print error 

E187 A57A 

544 

LDA Z7A 


E189 C902 

545 

CMP $02 


E18B F007 

546 

BEQ BE194 

;exlt lf in RUN sode, else 

E18D A964 

547 

LDA <TA364 

;set AY to point to message OK 

E18F A0A3 

548 

LDY >TA364 


E191 4C1EAB 

549 

JMP XAB1E 

;print message OK 

E194 60 

550 BE194 RTS 



551 

* 


E195 20B7FF 

552 

BE195 JSR SFFB7 

;lf load pass 

E198 29BF 

553 

AND $BF 

;and ST indicates an error 

E19A F005 

554 

BEQ BE1A1 


E19C A21D 

555 

LDX $1D 

; index Load Error cessage 

E19E 4C37A4 

556 

BE19E JMP XA437 

;print message 


557 

• ' 


E1A1 A57B 

558 

BE1A1 LDA Z7B 

;check high addr of current ehsracter 

E1A3 C902 

559 

CMP $02 


E1A5 DOOE 

560 

BNE BEIB5 

;lf in direct mode 

E1A7 8620 

561 

STX Z2D 

;move end of program address 

E1A9 842E 

562 

STY Z2E 

;to end of BASIC address 

E1AB A976 

563 

LDA <TA376 

;set AY to READY message 

E1AD A0A3 

564 

LDY >TA376 


E1AF 201EAB 

565 

JSR XAB1E 

;print READY 

E1B2 4C2AA5 

566 

JMP XA52A 

; relink BASIC, exit 


567 




568 

;end of load/verify from within a progran 


569 

» 


E1B5 208EA6 

570 

BE1B5 JSR XA68E 

;aove start of prograa to next char addr 

E1B8 2033A5 

571 

JSR XA533 

;relink BASIC 

E1BB 4C7 7 A6 

572 

JMP XA677 

;restore, clear polnters, return 
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574 

:“0PEN“ command 





575 

» 




E1BE 

2019E2 

576 

WE1BE JSR 

SE219 

;fetch parameters 


E1C1 

20C0FF 

577 

JSR 

SFFCO 

jperfono open 


E1C4 

BOOB 

578 

BCS 

BE1D1 

;if no errors, 


E1C6 

60 

579 

RTS 


jreturn 




580 

; 






581 

;“CLOSE” command 




582 

* 




E1C7 

2019E2 

583 

ME1C7 JSR 

SE219 

;fetch parameters 


E1CA 

A549 

584 

EDA 

Z49 

;restore file # 


E1CC 

20C3FF 

585 

JSR 

SFFC3 

;perform dose 


E1CF 

90C3 

586 

BCC 

BEI 94 

;exit if no error6 


E IDI 

4CF9E0 

587 

BE1D1 JMP BE0F9 

;error 




588 

» 






589 

;set parameters 

for load/verify/save 




590 

r 




EID4 

A900 

591 

SE1D4 EDA 

$00 

;assume no file naoe 


E1D6 

20BDFF 

592 

JSR 

SFFBD 

;set file name parameters 


E1D9 

A201 

593 

EDX 

$01 

jassume device 1 


E1DB 

AOOO 

594 

LDY 

$00 

;and secondary address 0 


E1DD 

20BAFF 

595 

JSR 

SFFBA 

;set logicai file, device 4 sec. addr 

E1E0 

2006E2 

596 

JSR 

SE206 

;fetch eurrent character 


E1E3 

2057E2 

597 

JSR 

SE257 

;evaluate expresslon 


E1E6 

2006E2 

598 

JSR 

SE206 

;fetch eurrent character 


E1E9 

2000E2 

599 

JSR 

SE200 

;sklp comma and fetch integer loto 

X 

E1EC 

AOOO 

600 

LDY 

$00 

;secondary address stili 0 


E1EE 

8649 

601 

STX 

249 

;save device # 


E1EO 

20BAFF 

602 

JSR 

SFFBA 

;set logicai file, devlce & sec. addr 

E1F3 

2006E2 

603 

JSR 

SE206 

;fetch eurrent character 


E1F6 

2000E2 

604 

JSR 

SE200 

;skip comma and fetch integer into 

X 

E1F9 

8A 

605 

TRA 




E1FA 

A8 

606 

TAY 


;set secondary address 


E1FB 

A649 

607 

EDX 

Z49 

;restore device 


E1FD 

4CBAFF 

608 

JHP 

SFFBA 

;set logicai file, device 4 sec. addr 



609 

; 






610 

;sklp comma and 

fetch integer into X 




611 

« 




E 200 

200EE2 

612 

SE200 JSR 

SE20E 

; check for and Sklp comma 


E203 

4C9EB7 

613 

JKP XB79E 

;fetch integer value into X 




614 

) 






615 

;fetch eurrent character and check for end of line 




616 

» 




E206 

207900 

617 

SE206 JSR X0079 

;fetch eurrent character 


E 209 

D002 

618 

BNE 

BE20D 



E20B 

68 

619 

FEA 


;if end of line, delete ovn return 

addr 

E20C 

68 

620 

FLA 




E20D 

60 

621 

BE20D RTS 






622 

• 






623 

; check for a comma and skip it 




624 

s 




E20E 

•20FDAE 

625 

SE20E JSR XAEFD 

;check for and sklp 


E211 

207900 

626 

SE211 JSR 

X0079 

;fetch eurrent character 


E214 

D0F7 

627 

BNE 

BE20D 



E216 

4C08AF 

628 

JKP 

XAF08 

;SYNTAX Error if end of line reached 
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630 ;get Open/Close parameters 

631 ; 


E219 

A900 

632 

SE219 

EDA 

$00 

;assume no file nane 


E21B 

20BDFF 

633 


JSR 

SFFBD 

;set file nane parameters 


E21E 

2011E2 

634 


JSK 

SE211 

;fetch current character 


E221 

209EB7 

635 


JSR 

XB79E 

;get nert non-strlng value lnto X 


E224 

8649 

636 


STX 

Z49 

;save file number 


E226 

8A 

637 


TXA 




E227 

A201 

638 


LDX 

$01 

jassuae devlce 1 


E229 

AOOO 

639 


LDY 

$00 

;and secondar; address 0 


E22B 

20BAFF 

640 


JSR 

SFFBA 

;set currrent file, device & sec. sddr 

E22E 

2006E2 

641 


JSR 

SE206 

;fetch current character 


E231 

2000E2 

642 


JSR 

SE200 

;sklp comma and fetch integer value 

into X 

£234 

864A 

643 


STX 

24 A 

;eave devlce number 


E236 

AOOO 

644 

- 

LDY 

$00 

;secondary stili 0 


E238 

A549 • 

645 


EDA 

249 



E23A 

E003 

646 


CPX 

$03 



E23C 

9001 

647 


BCC 

BE23F 

;lf devlce number > 3 


E23E 

88 

648 


DEY 


; secondary * $FF 


E23F 

20BAFF 

649 

BE23F JSK 

SFFBA 

;aet logicai file, device & sec. addr 

E242 

2006E2 

650 


JSR 

SE206 

;fetch current character 


E245 

2000E2 

651 


JSR 

SE200 

;sklp comma,]fetch Integer value in 

X 

E248 

SA 

652 


TXA 




E249 

AB 

653 


TAY 


;aet secondary address 


E24A 

A64A 

654 


LDX 

Z4A 

jrestore devlce 


E24C 

A549 

655 


LDA 

Z49 

jand file 


E24E 

20BAFF 

656 


JSR 

SFFBA 

;set logicai file, devlce & sec. addr 

E251 

2006E2 

657 


JSR 

SE206 

;fetch current character 


E254 

200EE2 

658 


jsr: 

SE20E 

;check for and sklp 


E257 

209EAD 

659 

SE257 

JSR 

XAD9E 

;evaluate expresslon 


E25A 

20A3B6 

660 


JSR 

XB6A3 

;de-allocate temporary string 


E25D 

A622 

661 


LDX 

Z22 


E2SF 

A423 

662 


LDY 

Z23 

;XY ■ address of file nane 


E261 

4CBDFF 

663 


JMP 

SFFBD 

;set file nane parameters 
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665 

; "C0S 

commaod 


666 

» 


E264 A9E0 

667 

WE264 

LDA <TE2E0 

E266 A0E2 

668 


LDY 5TE2EO 

E268 2067B8 

669 


JSR XB867 


670 




671 

;"SIN 

cooaand 


672 



E26B 200CBC 

673 

SE26B 

JSR XBC0C 

E26E A9E5 

674 


IDA <TE2E5 

E270 A0E2 

675 


LDY >TE2ES 

E272 A65E 

676 


LDX Z6E 

E274 2007BB 

67,7 


JSR XBB07 

E277 200CBC 

678 


JSR XBCOC 

E27A 20CCBC 

679 


JSR XBCCC 

E27D A900 

680 


LDA $00 

E27F 85ÓF 

681 


STA 26 F 

E28I 2053B8 

682 


JSR XB853 

E284 A9EA 

683 


LDA <TE2EA 

E286 A0E2 

684 


LDY >TE2EA 

E288 2050B8 

685 


JSR XB850 

E28B A566 

686 


LDA Z66 

E28D 48 

687 


PEA 

E28E 100D 

688 


BPL BE29D 

E290 2049B8 

689 


JSR XB849 

E293 A566 

690 


IDA Z66 

E295 3009 

691 


BM1 BE2A0 

E297 A512 

692 


LDA 212 

E299 49FF 

693 


E0R $FF 

E29B 8512 

694 


STA Z12 

E29D 20B4BF 

695 

BE29D JSR XBFB4 

E2A0 A9EA 

696 

BE2A0 

LDA <TE2EA 

E2A2 A0E2 

697 


LDY 5TE2EA 

E2A4 2067B8 

698 


JSR XB867 

E2A7 68 

699 


FLA 

E2A8 1003 

700 


BPL BE2AD 

E2AA 20B4BF 

701 


JSR XBFB4 

E 2AD A9EF 

702 

BE2AD 

LDA <TE2EF 

E2AF A0E2 

703 


LDY >TE2EF 

E2B1 4C43C0 

704 


JMP JE043 


;set AY co point co 0.5 * PI 
;add to flp accu then do SIN 


;move rounded flp accu co 2nd flp accu 
;set AY to 2 * PI 

;get sIgn 

;divide flp accu by 2 * PI 
,cove rcunded flp accu to 2nd flp accu 
;call functioo INT 

;set XOR of slgns to be Che sanie 
;apply dladlc operator 
;set AY to polot to 0.25 

;subcract flp accu frolli 0.25 
;flp accu t 1 - algn 
; save alga 
;if negative 

;do half rounding (add 0.5) 

;gec sign 

;if positive, cooplement flag 


;apply mooadic operator 
;set AY to 0.25 

;add 0.25 to flp accu 
jrestore originai sigu 
;if negative, 

; perforo monadic agaln 
;set AY to polynome table 

;go coapute odd degrees 
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;store flp accu at Z57-5B 


706 ;"TAN" command 

707 ; 

E2B4 20CABB 708 WE2B4 JSR XBBCA 


E2B7 A900 

709- 

LDA $00 


E2B9 8512 

710 

STA 212 

;clear slgn flag 

E2BB 206BE2 

711 

JSR SE26B 

;perform SIN 

E2BE A24E 

712 

LDX <Z4E 

; set AY to Z4E 

E2C0 A000 

713 

LDY >24E 


E2C2 20F6E0 

714 

JSR SE0F6 

jstore flp accu at Z4E 

E2C5 A957 

715 

LDA <Z57 

;set AY to 257 

E2C7 A000 

716 

LDY >Z57 


E2C9 20A2BB 

717 

JSR XBBA2 

5 movc flp accu there 

E2CC A900 

718 

LDA $00 


E2CE 8566 

719 

STA Z66 

;clear slgn of flp accu 

E200 A512 

720 

LDA Z12 

;fetch slgn flag 

E2D2 20DCE2 

72! 

JSR SE2DC 

;compute COS o£ flp accu 

E2D5 A94E 

722 

LDA <Z4£ 

;set AY to Z4E 

E 207 AOOO 

723 

LDY >Z4E 


E2D9 4C0FBB 

724 

JMP X8B0F 

; divide number at Z4E by flp accu, exit 


725 

• 


E2DC 46 

726 

SE2DC FHA 


E2DD 4C9DE2 

727 

JMP BE29D 

;cos>pute COS of flp accu then- return 


728 

» 



729 

;flp nuobera for 

SIN, COS and TAN 


730 




731 

;0.5 * PI 


E2E0 81490F 

732 TE2E0 .BY $81 ,$49,$0F,$DA,$A2 


733 

;2 * PI 


E2E5 83490F 

734 

TE2E5 .BY $83,$49,$0F,$DA.$A2 


735 

;0.25 


E2EA 7FOOOO 

736 

TE2EA .BY $7F,$00,$00,$00,$00 


737 

» 


E2EF 05 

738 

TE2EF .BY $05 

;polynome table for SIN 


739 

:-14.3813907 


E2F0 84E61A 

740 

.BY $84,$E6,$1A,$2D,$1B 


741 

; 42.0077971 


E2F5 862807 

742 

.BY $86,$28,$07,$FB,$FS 


743 

5-76.7041703 


E2FA 879968 

744 

•BY $87,$99,$68,$89,$01 


745 

; 81.6052237 


E2FF 872335 

746 

.BY $87.$23,$35,$DF.$E1 


747 

5-41.3417021 


E304 B6A55D 

748 

•BY $86,$A5,$5D,$E7,$28 


749 

; 6.28318531 


E309 83490F 

750 

•BY $83,$49,$0F,$DA,$A2 
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;save sign 


752 ;"ATN" ..pmmand 

753 ; 

E30E A56 6 7 54 WE30E EDA Z66 

E310 48 755 PHA 

E3ir 1003 756 BPL BE316 ;lf negative, 

E313 20B4BF 757 JSR XBFB4 ;apply aonadic operator 

E316 A561 758 BE316 EDA Z61 

E318 48 759 PHA ;save exponent 

E319 C981 760 CMP $81 ;if -> 1 

E31B 9007 761 BCC BE324 

E31D A9BC 762 EDA <TB9BC ;let Al point to 1 

E31F A0B9 763 LDY >TB9BC 

E321 200FBB 764 JSR XBB0F ;divide 1 by flp accu 

E324 A93E 765 BE324 LDA <TE33E ;set AY to polynome table fot ATN 

E326 A0E3 766 EDY >TE33E 

E32S 2043E0 767 JSR JE043 jcompute odd degrees 

E32B 68 768 PEA 

E32C C981 769 CMP $81 ;if exponent -> 1 

E32E 9007 770 BCC BE337 

E330 A9E0 771 EDA <TE2E0 ;set AY to 0.5 * PI 

E332 A0E2 772 EDY 5TE2E0 

E334 2050B8 773 JSR XB850 jsubtract flp accu froo 0.5 * PI 

E337 68 774 BE337 PLA 

E338 1003 775 BPL BE33D ;if alga negative 

E33A 4CB4BF 776 JMP XBFB4 ;apply aonadic operator 

777 ; 

E33D 60 778 BE33D RTS 

779 ; 

780 ;flp nunbera for ATN 

781 ; 

E33E 0B 782 TE33E .BY $0B 

783 ;-0.000684793912 

E33F 76B383 784 .BY $76,$B3,$83,$BD,$D3 

785 ; 0.00485094216 

E344 791EF4 786 .BY $79,$1E,$F4,$A6,$F5 

787 ;-0.0131117018 

E349 7B83FC 788 .BY $7B,$83,$FC,$BO,$10 

789 ; 0.034209638 

E34E 7COC1F 790 .BY $7C,$0C,$1F,$67,$CA 

791 ;-0.0542791328 

E353 7CDE53 792 .BY $7C,$DE,$53,$CB,$C1 

793 ; 0.0724571965 

E358 7D1464 794 -BY $7D,$14,$64,$70,$4C 

795 ;-0.0898023954 

E35& 7DB7EA 796 .BY $7D,$B7,$EA,S51,$7A 

797 ; 0.110932413 

E362 7D6330 798 -BY $7D,$63,$30,$88,$7E 

799 ;-0.142839808 

E367 7E9244 800 .BY $7E,$92,$44,$99,$3a 

801 ; 0.19999912 

E36C 7 E4CCC 802 .BY $7E,$4C,$CC.$91,$C7 

803 j-0.333333316 

E371 7FAAAA 804 .BY $7F,$AA,$AA,$AA,$13 

805 ; 1 

E376 810000 806 .BY $81,$00,$00,$00,$00 
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808 

;wann 

start entry 

(stop/restore) 



809 

; 



E37B 

20CCFF 

810 


JSR SFFCC 

;close all file», set default devices 

E37E 

A900 

811 


LDA $00 


E380 

8513 

8L2 


STA Z13 

;clear CMD file number flag 

E382 

207AA6 

813 


JSR XA67A 

;reset pointera 

E 385 

58 

814 


CLI 

;allov IRQ 

E386 

A280 

815 

BE386 

LDX $80 

jindex default aessage READY 

E388 

6C0003 

816 


JMP (X0300) 

Sprint aessage (normally E38B) 



817 

> 





818 

;handle error messages 



819 

J 



E38B 

SA 

820 

HE38B 

TXA 


E38C 

3003 

821 


BUI BE391 ■ 

;if X < $80 

E38E 

4C3AA4 

822 


JHP XA43A 

;print BASIC aessage 



823 

j 



E391 

4C74A4 

824 

BE391 

JMF XA474 

jelse print READY aessage 



825 

; 





826 

;RESET routine 




827 

> 



E394 

2053E4 

828 


JSR SE453 

jinltialize O/S vectors 

E397 

20BFE3 

829 


JSR SE3BF 

;initiallze BASIC lnterpreter 

E39A 

2022E4 

830 


JSR SE422 

jprint BASIC start-up nessages 

E39D 

A2FB 

831 


LDX $FB 


E39F 

9A 

832 


TXS 

jinltlalize stack pointer 

E3A0 

D0E4 

833 


BUE BE386 

sprint aessage READY 



834 

» 





835 

;character fetch i 

;ode for page zero 0073-008F 



836 

» 



E3A2 

E67A 

837 

TE3A2 

INC 27A 

jbuap character pointer (lou) 

E 3 A4 

D002 

838 


BNE BE3A8 

Sif overflou. 

E3A6 

E67B 

839 


INC Z7B 

jbuap character pointer (high) 

E3A8 

AD60EA 

840 

BE3A8 

LDA BEA61-1 

jfetch character from aodlfled address 

E 3 AB 

C93A 

841 


CMP '9+1 

jif above numerica 

E3AD 

BOGA 

842 


BCS BE3B9 

jreturn with C « 1 (and Z • 1 if 

E3AF 

C920 

843 


CMP $20 

jif character ls a space, 

E3BI 

FOEF 

844 


BEQ TE3A2 

Signore and get next character 

E3B3 

38 

845 


SEC 


E3B4 

E930 

846 


SBC '0 • 

jif belo» numerica 

E3B6 

38 

847 


SEC 

jreturn with C « 1 (and Z • 1 if $00) 

E3B7 

E9D0 

848 


SBC $D0 

Sif nuaerlc, return with C • 0 

E3B9 

60 

849 

BE3B9 

RTS 

jreturn with flags set and char in A 



850 

; 




’ 

851 

;first RITO seed value 



852 

t 



E3BA 

804FC7 

853 


.BY $80,$4F,$C7,$52,$58 
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853 

;lcltlalizatioa fot 



856 

9 



E3BF A94C 

857 

SE3BF 

IDA 

$4C 

E3CI 

8554 

858 


STA 

Z54 

E3C3 

8D1003 

859 


STA 

X0310 

E3C6 

A948 

860 


LDA 

<WS248 

E3C8 

aOB2 

861 


LDY 

>WB248 

E3CA 

8D1103 

862 


STA 

X0311 

E3CD 

8C1203 

863 


STY 

X0312 

E3D0 

A991 

864 


LDA 

<WB391 

E3D2 

A0B3 

865 


LDY 

>WB391 

E3D4 

8505 

866 


STA 

Z05 

E3D6 

8406 

867 


STY 

Z06 

E3D8 

A9AA 

868 


LDA 

<WB1AA 

E3DA A0B1 

869 


LDY 

>WB1AA 

E3DC 

£503 

870 


STA 

Z03 

E3DE 

8404 

871 


STY 

Z04 

E3EC 

A21C 

872 


LDX 

SIC 

E3E? 

BDA2E3 

873 

BE3E2 

LDA 

TE3A2.X 

E3E5 

9573 

874 


STA 

Z73,X 

E3E7 

CA 

875 


DEX 


E3E8 

10F8 

876 


BFL 

BE3E2 

E3EA 

A903 

877 


LDA 

$03 

E3EC 8333 

878 


STA 

Z53 

E3EE 

A900 

879 


LDA 

$00 

E3F0 

8568 

880 


STA 

Z68 

E3F2 

8513 

881 


STA 

Z13 

E3F4 

8518 

882 


STA 

Z18 

E3F6 

A201 

883 


LDX 

$01 

E3F8 

8EFD01 

884 


STX 

X01FD 

E3FB 

8EFC0L 

885 


STX 

X01FC 

E3FE 

A219 

886 


LDX 

$19 

E400 

8616 

887 


STX 

Z16 

E402 

38 

888 


SEC 


E403 

209CFF 

889 


JSR 

SFF9C 

E406 

862B 

890 


STX 

Z2B 

E408 

842C 

891 


STY 

Z2C 

E40A 

38 

892 


SEC 


E40B 

2099FF 

893 


JSR 

SFF99 

E40E 

8637 

894 


STX 

Z37 

E410 8438 

895 


STY 

Z38 

E4I2 

8633 

896 


STX 

Z33 

E414 

8434 

897 


STY 

Z34 

£416 

A000 

898 


LDY 

$00 

E418 

98 

899 


TYA 


E419 

912B 

900 


STA 

(Z2B),Y 

E4IB 

E62B 

901 


INC 

Z2B 

E41D 

D002 

902 


BNE 

BE421 

E41F 

E62C 

903 


INC 

Z2C 

E421 

60 

904 

££421 

RTS 



BASIC interpretar 

;set JMP instruccion 
;for functions 
;and l'SR vector 
;default USR jump address 
;(ILLEGAi. QUANTITY Error) 

;set USR jump address, low byte 
;USR jump address, high byte 


;set fixed-float vector 
;4 high byte 


;set float-fixed vector 
;i high byte 

;move character fetch code to $73-8A 
;and first RND seed iato Z8B-Z8F 


;set default step 

jclear flp accu overflou area 
;set CMD file number to default 
;clear high of string descriptor index 

;preflx input buffer with dummy pointer 

;set pointer to temporary string stack 

! read bottom of memory address 
;to set BASIC botto» of memory 


;read top of memory address 
;to set BASIC memory llmit 

;set string Storage address 
;& high byte 


;aove a 0 to bottom of memory 
;add 1 to start of BASIC address 

;S high byte upon overflov 
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906 ;print BASIC start-up messages 

907 ; 


E422 

A52B 

906 

SE422 

LDA 

Z2B 

;set AY to start of BASIC 

E424 

A42C 

909 


LDY 

Z2C 


E426 

2006A4 

910 


JSR 

XA408 

jperform array area overflov check 

E429 

A973 

911 


LDA 

<TE473 

;set AY to message COMMODORE 64 BASIC. 

E42B 

A0E4 

912 


LDY 

>TE4 73 


E42D 

201EAB 

913 


JSR 

XAB1E 

•print message 

E430 

A537 

914 


LDA 

Z37 

;use limit of memory 

E432 

38 

915 


SEC 



E433 

E52B 

916 


SBC 

22 B 

pointer to start of BASIC 

E435 

AA 

917 


TAX 



E436 

A538 

918 


LDA 

238 

;& high bytes 

E438 

E52C 

919 


SBC 

Z2C 

;to calcolate bytes free 

E43A 

20CDBD 

920 


JSR 

XBDCD 

jconvert to string 

E43D 

A960 

921 


LDA 

<TE460 

;set AY* to message BYTES FREE 

E43F 

A0E4 

922 


LDY 

>TE460 


E441 

201EAB 

923 


JSR 

XABIE 

;print $ theo BYTES FREE 

£444 

4C44A6 

924 


JMP 

XA644 

;perfonn NEW, print READY 



925 

; 






926 

;vectors for $0300-$030B 



927 

» 




E447 

8BE3 

928 

TE447 

.W 

ME38B 

;error message vector 

E449 

83A4 

929 


.V 

UA483 

;warm start vector 

E44B 

7CA5 

930 


-VI 

HA57C 

jcrunch BASIC tokens vector 

E44D 

1AA7 

931 


.w 

WA71A 

;prlnt tokens vector 

E44F 

E4A7 

932 


.w 

WA7E4 

;execute a statement vector 

E451 

86 AE 

933 


.w 

WAE86 

;get arithraetic element vector 



934 

» 






935 

;lnltlallze vectors 

at $0300-$030B 



936 

j 




E453 

A20B 

937 

SE453 

LDX 

$0B 


E455 

BD47E4 

938 

BE455 

LDA 

TE447.X 

jfetch a byte from table 

E458 

900003 

939 


STA 

X0300,X 

;and move lt to veccor area 

E45B 

CA 

940 


DEX 



E45C 

10F7 

941 


BPL 

BE455 

;repeat until 6 vectors stored 

E45E 

60 

942 


RTS 





943 

» 




E45F 

00 

944 


. BY 

$00 


E460 

204241 

945 

TE460 

• BY 

' ,'B,'A, 

'S.'I.'C,' .'B.'Y.'T.'E.'S,' ,'F,'R,'E 

E471 

0D00 

946 


■ BY 

$00,$00 


E473 

930D20 

947 

TE473 

.BY 

$ 93,$0D, ' 

> i > 

E479 

2A2A2A 

948 


• BY 

'* '* -* 

i > » 

.'C.'O.'M.'K.'O.'D.'O.'R.'E 

E487 

203634 

949 


.BY 

' '4, 

' ,'B,'A,'S,'I,'C,' ,'V,'2 

E493 

202A2A 

950 


-BY 

' '* '* 

■ * > 

$0D,$0D 

E49A 

203634 

951 


• BY 

' ,'6,'4, 

'K,' ,'R,'A,'M,' ,'S,'Y,'S,'T,'E,'M,' 

E4AB 

005C 

952 


■ BY 

$00,$5C 
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954 ;set output device (patch) 

955 ; 

E4AD 48 956 SE4AD PHA 

E4AE 20C9FF 957 JSR SFFC9 ; perfora accusi open for output 

E4BI AA 958 TAX ;save posslhle error code 

E4B2 68 959 PDA ;restore entry accumulator 

E4B3 9001 960 BCC BE4B6 ;if an error encountered, 

E4B5 8A 961 TXA ;return wlth error number in A 

E4B6 60 962 BE4B6 RTS 

963 ; 

964 ;unused area follovs 

965 ; 

E4B7 AAAAAA 966 .BT $AA,$AA, $AA,$AA, $AA,$AA,$AA,SAA 

E4BF AAAAAA 967 .BY $AA,$AA,$AA,$AA,$AA,$AA,SAA,SAA 

E4C7 AAAAAA 968 .BY $AA,$AA,$AA,$AA,$AA,$AA,5AA,$AA 

E4CF AAAAAA 969 .BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA 

E4D7 AAAAAA 970 .BY 5AA.$AA,$AA 

971 ; 

972 jclear a byte in color RAM 

973 ; 

E4DA AD21D0 974 SE4DA LDA XD021 ;use background fi 0 color 

E4DD 91F3 975 STA <ZF3),Y ;to clear color RAM 

E4DF 60 976 RTS 

977 ; 

978 ;pause after flndiog a file on cassette 

979 ; 

E4E0 6902 980 SE4E0 ADC $02 ;set maximum pause to 256 - 512 jiffies 

E4E2 A491 981 BE4E2 LDY Z91 ;check keyboard scan result 

E4E4 C8 982 INY 

E4E5 D004 983 BNE BE4EB ;exit if a key depressed 

E4E7 C5A1 984 CMP ZA1 

E4E9 D0F7 985 BNE EE4E2 ;repeat until delay complete 

E4EB 60 986 BE4EB RTS 
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988 ;baud rate factor cable for International machines 

989 ;((clock frequency/baud rate/2)-100) 

990 ; 


E4EC 

1926 

991 

TE4EC .WO $2619 

50 baud 

E4EE 

4419 

992 

.WO $1944 

75 

E4FQ 

1A11 

993 

■ wo $1UA 

110 

E4F2 

E8CÌD 

994 

.«0 $0DE8 

134.5 

E4F4 

700C 

995 

.WO $0070 

150 

E4F6 

0606 

996 

•WO $0606 

300 

E4F8 

D102 

997 

.WO $0201 

600 

E4FA 

3701 

998 

•WO $0137 

1200 

E4FC 

AEOO 

999 

.WO $OOAE 

1800 

E4FE 

6900 

1000 

•WO $0069 

2400 



1001 





1002 

;read base address of I/O devices inco XY 



1003 

; 


E500 

A200 

1004 

JE500 LDX $00 


E502 

AODC 

1005 

LDY $DC 

point co ClAl lo XY 

E504 

60 

1006 

RTS 




1007 

; 




1008 

;read screen organlzatlon lnto XY 



1009 

* 


E505 

A228 

1010 

JE505 LDX $28 

f colmane 

E507 

A019 

1011 

LDY $19 

f rovs 

E509 

60 

1012 

RTS 




1013 

> 




1014 

; read/set XY cursox posi don 



1015 

» 


E5QA 

B007 

1016 

JE50A BCS BE513 

if carry set, read cursor poeltloc 

E50C 

86D6 

1017 

STX ZD6 

set cursor line # from X 

E50E 

84D3 

1018 

STY ZD3 

set posltlon of cursor on line froo 

E510 

206CE5 

1019 

JSR SE56C ;set address of current screen line 

E513 

A6D6 

1020 

BE513 LDX ZD6 

read cursor line ntsaber lnto X 

E515 

A4D3 

1021 

LDY ZD3 

read posltlon of cursor on line lnto 

ESI 7. 

60 

1022 

RTS 





1024 ;initlallze screen 




1025 

; 


E518 

20AOE5 

1026 

SE518 JSR 

SE5A0 

E51B 

A900 

1027 

LDA 

$00 

E51D 

8D9102 

1028 

STA 

X0291 

E520 

85CF 

1029 

STA 

2CF 

£522 

A948 

1030 

LDA 

<WEB48 

E524 

8D3F02 

1031 

STA 

X028F 

£527 

A9EB 

1032 

LDA 

>WEB48 

E529 

8D9002 

1033 

STA 

X0290 

E52C 

A90A 

1034 

LDA 

$0A 

E52E 

8D8902 

1035 

STA 

X0289 

E531 

8D8C02 

1036 

STA 

X028C 

E534 

A90E 

1037 

LDA 

$0E 

E536 

8D8602 

1038 

STA 

X0286 

E539 

A904 

1039 

LDA 

$04 

E53B 

8D8B02 

1040 

STA 

X028B 

E53E 

A90C 

1041 

LDA 

$0C 

E540 

85CD 

1042 

STA 

2CD 

E542 

S5CC 

1043 

STA 

ZCC 

E544 

AD8802 

1044 

SE544 LDA 

X0288 

E547 

0980 

1045 

ORA 

$80 

E549 

A8 

1046 

TAY 


E54A 

A900 

1047 

LDA 

$00 

E54C 

AA 

1048 

TAX 


E54D 

94D9 

1049 

BE54D STY 

ZD9.X 

E54F 

18 

1050 

CLC 


E550 

6928 

1051 

ADC 

$28 

E552 

9001 

1052 

BCC 

BE555 

E554 

C8 

1053 

INY 


E555 

E8 

1054 

BE555 INX 


E556 

E01A 

1055 

CPX 

$1A 

E558 

D0F3 

1056 

BUE 

BE54D 

E55A 

A9FF 

1057 

LDA 

$FF 

E55C 

9509 

1058 

STA 

ZD9.X 

E55E 

A218 

1059 

LDX 

$18 

E560 

20FFE9 

1060 

BE560 JSR 

SE9FF 

E563 

CA 

1061 

DEX 


E564 

10FA 

1062 

BPL 

BE560 

E566 

A000 

1063 

JE566 LDY 

$00 

E568 

84D3 

1064 

STY 

ZD3 

E56A 

8406 

1065 

STY 

ZD6 


and keyboard 

;initlalize video chip, set default 1/0 

;enable shift mode 
;clear cursor blink phase 

;set address of keyboard decode routine 

high byte 

;set maximum’length of keyboard buffer 
;set repeat key delay counter 

;set current color code 

;set repeat key frequeacy counter 

;set cursor flash timer 
jdisable cursor flash 
;fetch screen memory start page 
;set bit 7 to indicate 40 «citi 3*r-t 

;build screen line address table 


jrepeat for 25 llnes 

;line count - L 
;clear a line 

;loop till screen cleared 

;cursor at position 0 
;and line 0 
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1067 ;set addresa of current screen line 

1068 ; 


ES6C 

A6D6 

1069 

SE56C LDX 

ZD6 

E56E 

A5D3 

1070 

LDA 

ZD3 

E570 

B4D9 

1071 

BE570 LOY 

ZD9.X 

E572 

3008 

1072 

BM1 

BE57C 

E574 

18 

1073 

CLC 


E575 

6928 

1074 

ASC 

$28 

E577 

85D3 

1075 

STA 

ZD3 

E579 

CA 

1076 

DEX 


E57A 

10F4 

1077 

BPL 

BE570 

E57C 

B5D9 

1078 

BE57C LDA 

ZD9,X 

E57E 

2903 

1079 

AND 

$03 

E 580 

0D8802 

1080 

ORA 

X0288 

E583 

85D2 

1081 

STA 

ZD2 

E585 

BDF0EC 

1082 

LDA 

TECF0.X 

E588 

85D1 

1083 

STA 

ZD1 

E58A 

A927 

1084 

LDA 

$27 

E58C 

E8 

1085 

INX 


E58D 

B4d9 

1086 

BE58D LDT 

ZD9.X 

E58F 

3006 

1087 

BKI 

BE597 

E591 

18 

1088 

CLC 


E592 

6928 

1089 

ADC 

$28 

E594 

E8 

1090 

INX 


E595 

10F6 

1091 

BFL 

BE58D 

E597 

85D5 

1092 

BE597 STA 

ZD5 

E599 

60 

1093 

BIS 




1094 

> 


E59A 

20AOE5 

1095 

JSH 

SE5A0 

E59D 

4C66E5 

1096 

JMP 

JE566 


;get cursor line number In X 

;and position of cursor on line in A 

;check screen line addresa table 

;if on an 80 character line, 

;add 60 lo 

;position of cursor on line 

;point to preceeding line 

; and repeat if screen top no.t reached 

;fetch high byte of screen line address 

;strlp 40/80 character line flag 

;add screen memory page 

;to set high of pointer to screen line 

;uee line number and table of low bytes 

;to set lo» byte of ptr to screen line 

;set lnitial max length of current line 

;exit if on a 40 character line 

;else add 40 

;and repeat one tlme 

;save maximum length current line 

;not referencedll 
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1098 

;set 

video chip to 

std values and I/O devlces to default 



1099 

* 



E5A0 

A903 

1100 

SE5A0 LDA $03 


E5A2 

859A 

noi 


STA Z9A 

;set output devlce (screeo) 

E5A4 

A900 

1102 


LDA $00 


E5A6 

8599 

1103 


SIA Z99 

;set input device (keyboard) 

E5A8 

A22F 

1104 


LDX $2F 


E5AA 

BDB8EC 

1105 

BE5AA LDA TECB9-1 ,X 

;use standard table values to 

E5AD 

9DFFCF 

1106 


STA XDOOO-1,X 

;lnitlalize video chip 

E5B0 

CA 

1107 


DEX 


E5B1 

D0F7 

1108 


BNE BE5AA 

;repeat to move all 47 values 

E5B3 

60 

1109 


RTS 




1110 

* 





1111 

;fetch a character 

froiii keyboard buffer 



1112 

> 



E5B4 

AC7702 

1113 

SE5B4 

LDX X0277 

;save botto® char of keyboard buffer 

E5B7 

A200 

1114 


LDX $00 


E5B9 

BD7802 

1115 

BE5B9 

LDA X0277+1.X 

;move keyboard queue dowo one 

E5BC 

9D7702 

1116 


STA X0277.X 


E5BF 

E8 

1117 


1NX 


E5C0 

E4C6 

1118 


CPX ZC6 

jcheck length of queue 

E5C2 

D0F5 

1119 


BNE BE5B9 

;loop until all moved 

E5C4 

C6C6 

1120 


DEC ZC6 

;subtract one from length of queue 

E5C6 

98 

1121 


TYA 

;return vlth character in A 

E5C7 

58 

1122 


OLI 

;allov IRQ's again 

E5C8 

18 

1123 


CLC 

;clear error flag 

E5C9 

60 

1124 


RTS 
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1126 

;walt for a Return 

from keyboard 


1127 

; 


E5CA 2016E7 

1128 

BE5CA JSR SE716 

;echo character od screen 

E5CD A5C6 

1129 

BE5CD IDA ZC6 

;move keyboard count 

E5CF 85CC 

1130 

STA ZCC 

;to cursor enable flag (OOflash) 

E5D1 8D9202 

1131 

STA X0292 

;and auto scroll down flag 

E5D4 F0F7 

1132 

BEQ BE5CD 

;loop until Bomething arrives from kbd 

E5D6 78 

1133 

SEI 


E5D7 A5CF 

1134 

LDA ZCF 

;if cursor blink phase 1 

E5D9 FOOC 

1135 

BEQ BE5E7 


E5DB A5CE 

1136 

LDA ZCE 

;get character under cursor 

E5DD AE8702 

1137 

LDX X0287 

;& color of character under cursor 

E5EO AOOO 

1138 

LDX $00 


E5E2 84CF 

1139 

STX ZCF 

;clear cursor blink phase 

E5E4 2013EA 

1140 

JSR SEA13 

;store character on screen 

E5E7 20B4E5 

1141 

BE5E7 JSR SE5B4 

;fetch a character from thè keyboard buffer 

E5EA C983 

1142 

CKP $83 

;check for shift of Run/Stop key 

ESEC DOIO 

1143 

BNE BE5FE 


E5EE A209 

1144 

LDX $09 

-1f so, set count for move 

ESFO 78 

1145 

SEI 


E5F1 86C6 

1146 

STX ZC6 

; force keyboard buffer count 

E5F3 BDE6EC 

1147 

BE5F3 LDA TECE7-1, 

X ;nove **Load/Ruo" into keyboard buffer 

E5F6 9D7602 

1148 

STA X0277-1, 

X 

E5F9 CA 

1149 

DEX 


E5FA DOF7 

1150 

BNE BE5F3 

jrepeat until all characters moved 

E5FC FOCE 

1151 

1152 

BEQ BE5CD 

» 

;go get first char from forced striug 

E5FE C90D 

1153 

BE5FE CKP $0D 

;if Return, 

E600 DOC8 

1154 

BNE BE5CA 


E602 A4D5 

1155 

LDX ZD5 

;aove screen line length 

E604 84DO 

1156 

STX ZDO 

;to save area 

E606 B1D1 

1157 

BE606 LDA (ZD1),X 

;check for blanks at end of line 

E608 C920 

1158 

CKP $20 


E60A D003 

1159 

BNE BE60F 


E60C 88 

1160 

DEI 

;and remove them 

E60D DOF7 

1161 

BNE BE606 


E60F C8 

1162 

BE60F 1NX 


E610 84C8 

1163 

STX ZC8 

;set end of line pointer for input 

E612 AOOO 

1164 

LDX $00 


E614 8C9202 

1165 

STX X0292 

;enable auto scroll flag 

E617 84D3 

1166 

STX ZD3 

;set position of cursor on line 

E619 84D4 

1167 

STX ZD4 

;clear string flag 

E61B A5C9 

1168 

LDA ZC9 

;get saved screen line number 

E61D 301B 

1169 

BHI BE63A 

‘ If valid 

E61F A6D6 

1170 

LDX ZD6 


E621 20EDE6 

1171 

JSR SE6ED 

;and equal to originai 

£624 E4C9 

1172 

CPX ZC9 


E626 BOI2 

1173 

BNE SE 63 A 


E628 A5CA 

1174 

LDA ZCA 


E62A 85D3 

1175 

STA ZD3 

;set char position to originai value 

E62C C5C8 

1176 

CHP ZC8 

;if char position la past end of line. 

E62E 90 OA 

1177 

BCC BE63A 

;get character from screen 

E630 B02B 

1178 

BCS BE65D 

;else exit vith a return 
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1180 ;get character from 

1181 ; 

E632 98 1182 JE632 TYA 

E633 48 1183 PHA 

E634 8A 1184 TXA 

E635 48 1185 PHA 

E636 A5D0 1186 LDA ZDO 

E638 F093 1187 BEQ BE5CD 

1188 ; 

1189 ;get character from 

1190 ; 

E63A A4D3 1191 BE63A LDY ZD3 

E63C BICI 1192 LDA (ZDi),Y 

E63E 85D7 1193 STA ZD7 

E640 293F 1194 AND $3F 

E642 06D7 1195 ASL ZD7 

E644 24D7 1196 BIT ZD7 

E64Ó 1002 1197 BPL EE64A 

E648 0980 1198 ORA $80 

E64A 9004 1199 BE64A BCC BE650 

E64C A6D4 1200 LDX ZD4 

E64E D004 1201 BNE BE654 

E650 7002 1202 BE650 BVS BE654 

E652 0940 1203 ORA $40 

E654 E6D3 1204 BE654 INC ZD3 

E656 2084E6 1205 JSR SE684 

E659 C4C8 1206 CPY ZCS 

E65B D017 1207 BNE BE674 

E65D A900 1208 BE65D LDA $00 

E65F 85DO 1209 STA ZDO 

E661 A90D 1210 LDA $0D 

E663 A699 1211 LDX Z99 

E665 EOO3 1212 CFX $03 

E6S7 F006 1213 BEQ BE66F 

E669 A69A 1214 LDX Z9A 

E66B E003 1215 CPX $03 

E66D F003 1216 BEQ BE672 

E66F 2016E7 1217 BE66F JSR SE716 

E672 A90D 1218 BE672 LDA $0D 

E674 85D7 1219 BE674 STA ZD7 

E676 68 1220 PLà 

E677 AA 1221 TAX 

E678 68 1222 FLA 

E679 AS 1223 TAT 

E67A A5D7 1224 LDA ZD7 

E67C C9DE 1225 CMP $DE 

E67E DO02 1226 BNE BE682 

E680 A9FF 1227 LDA $FF 

E682 18 1228 BE6B2 CLC 

E683 60 1229 RTS 


devlce 0 or 3 (keyboard or screen) 


;save XY on stack 

;test saved.screen line length 
;if aero, walt for return 

current screen line 

;get posltion of cursor on current line 

;then current screen character 

;and save it 

;save low order 6 blts 

;ì£ bit 6 is set in originai 


;set bit 7 in converted character 

;if bit 7 is set in originai 

;and in a string 

;then don't ehange bit 6 

;lf bit 5 is clear in originai 

;set bit 6 in converted character 

; inerement posltion of cursor on line 

;check for a quote 

;if end of line reached 


;clear copy of screen line length 
; force a Return 

;if input device is 3 (screen) 
;echo character oc screen 

;if output device is screen 
;replace character uith a Return 
;echo character on screen 
;replace character witb a Return 
;and save as last character 

/ 

;restore XY 

;if character is PI 

;return with code for PI 
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1231 

jcheck. for a quote 

Dark, and set flag 



1232 

t 



E664 

C922 

1233 

SE684 

CMP 

;if ch&racter la a quote 

E686 

DO 08 

1234 


BNE BE690 


E688 

A5D4 

1235 


LDA 2D4 


E68A 

4901 

1236 


E0R $01 

; compìement 6 1 ring flag 

E68C 

BSD4 

1237 


STA ZD4 


E68E 

A922 

1238 


LDA 

;and reatore quote code In 

E690 

60 

1239 

BE690 

RTS 




1240 

! 





1241 

;f 111 

screen et current posltion 



1242 

» 



E691 

0940 

1243 

JE691 

ORA $40 

;map shlfted characters 

E693 

A6C7 

1244 

JE693 

LDX ZC7 

;lf reverse swltch ls on 

E695 

F002 

1245 


BEQ BE699 


E697 

0980 

1246 

JE697 

ORA $80 

;add reverse video bit 

E699 

AÉD8 

1247 

8E699 

LDX ZD8 

;if any pendlng inserta 

E69B 

F002 

1248 


BEQ BE69F 


E69D 

C6D8 

1249 


DEC ZD8 

;decrement pendlng Inserte 

E69F 

AE8602 

1250 

BE69F 

LDX X0286 

;fetch current color code 

E6A2 

2013EA 



’JSF’.SiALc 

Ipdd character to ecreen 

E6A5 

20B6E6 

1252 


JSR SE6B6 

;get/lnsert neu line 



1253 

> 





1254 

; return from output 

to thè 6creen 



1255 

> 



E6a8 

68 

1256 

BE6A8 

FLA 


E6A9 

A8 

1257 


TAY 


E6AA 

A5D8 

1258 


LDA ZD8 

;lf any pendlng inserta. 

E6AC 

F002 

1259 


BEQ BE6B0 


E6AE 

46D4 

1260 


LSR ZD4 

;reaet trlng mode flag 

E6B0 

68 

1261 

BE6B0 

FLA 


E6B1 

AA 

1262 


TAX 

;re8tore XA 

E6B2 

68 

1263 


FLA 


E6B3 

18 

1264 


CLC 


E6B4 

58 

1265 


CLI 

;allow IRQ'a 

E6B5 

60 

1266 


RTS 
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1268 

;get/insert nev 

line 



1269 

j 




E6B6 

20B3E8 

1270 

SE6B6 

JSR 

SE8B3 

;check for end of a screen line 

E6B9 

E6D3 

1271 


INC 

ZD3 

jadvance cursor posltlon 

E6BB 

A5D5 

1272 


LDA 

ZD5 


E6BD 

CSD3 

1273 


CHP 

ZD3 

;lf beyond maximum posltlon, 

E6BF 

B03F 

1274 


BCS 

BE700 

;exit 

E6C1 

C94F 

•1275 


CHE 

$4F 

;if not at 79 

E6C3 

F032 

1276 


BEQ 

BE6F7 


E6C5 

AD9202 

1277 


LDA 

X0292 

;and In auto scroll mode 

E6C8 

F003 

1278 


BEQ 

BE6CD 

; continue 

E6CA 

4C67E9 

1279 


JMP 

JE967 

;else insert a blank line in screen RAM 
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E6CD 

A6D6 

1281 

BE6CD 

LDX 

ZD6 

;if in auto scroll mode 

E6CF 

EOI 9 

1282 


CPX 

$19 

;and cursor is on line 25 

E6D1 

9007 

1283 


BCC 

BE6DA 


E6D3 

20EAE8 

1284 


JSR 

sesea 

;scroll screen 

E6D6 

C6D6 

1285 


DEC 

ZD6 

; subtract 1 from cursor line $ 

E6D8 

A6D6 

1286 


LDX 

ZD6 


E6DA 

16D9 

1287 

BE6DA 

ASL 

ZD9.X 

;set an 80 character line 

E6DC 

56D9 

1288 


LSR 

ZD9,X 


E6DE 

E8 

1289 


INX 

* 


E6DF 

B5D9 

1290 


LDA 

ZD9,X 

;set followlng line to 40 characters 

E6E1 

0980 

1291 


ORA 

$80 


E6E3 

9509 

1292 


STA 

ZD9,X 


E6E5 

CA 

1293 


DEX 



E6E6 

A5D5 

1294 


LDA 

ZD5 


E6E8 

18 

1295 


CLC 



E6E9 

6928 

1296 


ADC 

$28 

;add 40 to line length of current line 

E6EB 

85D5 

1297 


STA 

ZD5 


E6ED 

B5D9 

1298 

SE6ED 

LDA 

ZD9,X 


E6EF 

3003 

1299 


BUI 

BE6F4 

;if current line Is not 80 char line 

E6F1 

CA 

1300 


DEX 


;decrement line count 

E6F2 

D0F9 

1301 


8NE 

SE6ED 

;and repeat 

E6F4 

4CF0E9 

1302 

BE6F4 

JMP 

SE9F0 

;reset screen line address and return 



1303 

> 




E6F7 

C6D6 

1304 

BE6F7 

DEC 

ZD6 

;decremeat cursor line # 

E6F9 

207CE8 

1305 


JSR 

SE87C 

;set next line nimber 

E6FC 

ASOO 

1306 


LDA 

$00 


E6FE 

8503 

1307 


STA 

ZD3 

; se t cursor posltlon on line to 0 

w 

o 

o 

60 

1308 

BE700 

Bis 





1309 

i 






1310 

; Berve 

backwards 

over a line boundary 



1311 

t 




E701 

A6D6 

1312 

SE701 

LDX 

ZD6 

;lf at top of screen 

E703 

D006 

1313 


BNE 

BE70B 


E705 

8603 

1314 


STX 

ZD3 

;set cursor posltlon t-o line 0 

E707 

68 

1315 


PLA 



E708 

68 

1316 


FLA 


;remove own return address 

E709 

0090 

1317 


BNE 

BE6A6 

;and exit 

E70B 

CA 

1318 

BE70B 

DEX 


;else back up One line 

E70C 

86D6 

1319 


STX 

ZD6 


E70E 

206CE5 

1320 


JSR 

SE56C 

;set address of current screen line 

E7U 

A4D5 

1321 


LDY 

2D5 

lieve line length of current line 

E713 

84D3 

1322 


STX 

ZD3 

;to posltlon of cursor on line 

E715 

60 

1323 


RTS 
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1325 

;put a character t 


1326 

1 


E716 18 

1327 

SE716 PHA 


E717 85D7 

1328 

STA 

ZD7 

E719 8A 

1329 

TXA 


E71A 48 

1330 

PHA 


E71B 98 

1331 

TYA 


E71C 48 

1332 

PHA 


E71D A900 

1333 

LDA 

$00 

E71F 85DO 

1334 

STA 

ZDO 

E721 A4D3 

1335 

LDY 

ZD3 

E723 A5D7 

1336 

LDA 

ZD7 

E725 1003 

1337 

BPL 

BE72A 

E727 4CD4E7 

1338 

JMP 

JE7D4 


1339 

» 


E72A C90D 

1340 

BE72A CKF 

$0D 

E72C D003 

1341 

BNE 

BE731 

E72E 4C91E8 

1342 

JMP 

JE891 


1343 

9 


E731 C920 

1344 

BE731 CHP 

$20 

E733 9010 

1345 

BCC 

BE745 

E735 C960 

1346 

CMP 

$60 

E737 9004 

1347 

BCC 

BE73D 

E739 29DF 

1348 

AND 

$DF 

E73B 0002 

1349 

BNE 

BE73F 

E73D 293F 

1350 

BE73D AND 

$3F 

E73F 2084E6 

1351 

BE73F JSR 

SE684 

E742 4C93E6 

1352 

JMP 

JE693 


1353 

l 


E745 A608 

1354 

BE745 LDX 

2D8 

E747 F003 

1355 

BEQ 

BE74C 

E749 4C97E6 

1356 

JMP 

JE697 


1357 

\ 


E74C C914 

1358 

BE74C CMP 

$14 

E74E D02E 

1359 

BNE 

BE77E 

E750 98 

1360 

TYA 


E751 0006 

1361 

BNE 

BE759 

E753 2001E7 

1362 

JSR 

SE701 

E756 4C73E7 

1363 

JMP 

JE773 


1364 

9 


E759 20A1E8 

1365 

BE759 JSR 

SE8A1 

E75C 88 

1366 

OEY 


E75D 8403 

1367 

STY 

ZD3 

E75F 2024EA 

1368 

JSR 

SEA24 

E762 C8 

1369 

BE762 INY 


E763 RIDI 

1370 

LDA 

<ZD1),Y 

E765 88 

1371 

DEY 


E766 9101 

1372 

STA 

(ZDl).Y 

E768 C8 

1373 

INI 


E769 B1F3 

1374 

LDA 

(ZF3),Y 

E76B 88 

1375 

OEY 


E76C 91F3 

1376 

STA 

(ZF3),Y 

E76E C8 

1377 

INY 


E76F C4D5 

1378 

CPY 

ZD5 

É771 D0EF 

1379 

BNE 

BE762 

E773 A920 

1380 

JE773 LDA 

$20 

E775 9 IDI 

1381 

STA 

(ZD1),Y 

E777 AD8602 

1382 

LDA 

X0286 

E77A 91F3 

1383 

STA 

(ZF3),Y 

E77C 1040 

1384 

BPL 

BE7CB 


screen (devlce 3) 

;save character od stack 
;and in temporary field 


; s ave XY 

;set saved screen line length to 0 
;get character positìon 
; and character 

;if shifted character, skip following 
;if Return 

;perfortn Return function 
;if printahle character 


;aod not a space 
;map to screen code 
;check for a quote 
;and fili screen 

;if non-printable 
;and lnserts pending 
;do not use code 

;if Delete code 


;and not beyond left margln 
;go backuards over line boundary 
;lasert a blank 

;check for cursor at line beginning 

;adjust cursor positlon on line 
;set color nenory address 

jcompress screen line 


;and color nenory 


;up to end of line 

;and insert blank 
;at end 

jinsert current color code 
;in color nenory 
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E77E 

A6D4 

1385 

BE77E 

LDX 

ZD4 

E780 

F003 

1386 


BEQ 

BE785 

E782 

4C97E6 

1387 


JMP 

JE697 



1388 

J 



E?85 

C912 

1389 

BE785 

CMP 

$12 

E787 

DO 02 

1390 


BNE 

BE78B 

E789 

85C7 

1391 


STA 

ZC7 

E78B 

C913 

1392 

BE78B 

CMP 

$13 

E78D 

DO 03 

1393 


BNE 

BE7 92 

E78F 

2066E5 

1394 


JSR 

JE566 

E752 

C91D 

1395 

BE792 

CMP 

$1D 

£794 

D017 

1396 


BNE 

BE7AD 

E796 

C8 

1397 


1NY 


E7S7 

20B3E8 

1398 


JSP. 

SE8B3 

E79A 84D3 

1399 


STY 

ZD3 

E79C 

88 

1400 


DEY 


E79D 

C4D5 

1401 


CPY 

ZD5 

E79F 

9009 

1402 


BCC 

BE7AA 

E7A1 

C6D6 

1403 


DEC 

ZD6 

E7A3 

207CE8 

1404 


JSR 

SE87C 

E7A6 

A000 

1405 


ldy 

$00 

E7A8 

84D3 

1406 

BE7A8 

STY 

ZD3 

E7AA 

4CA8E6 

1407 

BE7AA 

■JMP 

BE6A8 



1408 

1 



E7AD 

C911 

1409 

BE7AD 

CMP 

$11 

E7AF 

D01D 

1410 


BNE 

BE7CE 

E7B1 

18 

1411 


CLC 


E7B2 

98 

1412 


TYA 


E7B3 

6928 

1413 


ABC 

$28 

E7B5 

A8 

1414 


TAY 


E7B6 

E6D6 

1415 


INC 

ZD6 

E7B8 

C5D5 

1416 


CMP 

ZD5 

E7BA 

90EC 

1417 


BCC 

BE/A8 

E7BC 

F0EA 

1418 


BEQ 

BE7AS 

E7BE 

C6D6 

1419 


DEC 

ZD6 

E7C0 

E928 

1420 

SE7C0 

SBC 

$28 

E7C2 

9004 

1421 


BCC 

BE7C8 

E7C4 

85D3 

1422 


STA 

ZD3 

E7C6 

D0F8 

1423 


BNE 

BE7C0 

E7C8 

207CE8 

1424 

BE7C8 

JSR 

SE87C 

E7CB 4CA8E6 

1425 

BE7CB 

JMP 

BE6A8 



1426 

; 



E7CE 

20CBE8 

1427 

BE7CE 

JSR 

SE8CB 

E7D1 

4C44EC 

1428 


JMP 

JEC44 


;if in string mode 

;don't use control functlons 


; 1f Reverse key 

;set revers^ video switch 
;if Home key 

;re“inltialize cursor positlon 
;if Cursor Right 


;increment character position 


;if at line end 

jdecrement cursor line number 
;go to next line 

;set position of cursor on line 
;and exit 

;if Cursor Doum 


jadvance 40 positions 

jincrement cursor line number 
;if not beyond line end 

;exit 

;else back up one line 

jdecrease character position by 40 

;exit if underflow 

;else reset position of cursor on line 

;set next line number 
;exit 

; check for a color code 
;check for special CHR$ codes, return 
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1430 ;put shlfted charàcters to screen 

1431 ; 


E7D4 297F 

1432 

JE7D4 AND $7F 

E7D6 C97F 

1433 

CMP $7F 

E7D8 0002 

1434 

BNE BE7DC 

E7DA A95E 

1435 

LDA $5E 

E7DC C920 

1436 

BE7DC CMP $20 

E7DE 9003 

1437 

BCC BE7E3 

E7E0 4C91E6 

1438 

1439 

JMP JE691 

* 

E7E3 C90D 

1440 

BE7E3 CMP $0D 

E7E5 DO03 

1441 

BNE BE7EA 

E7E7 4C91E8 

1442 

1443 

JMP JE891 

f 

E7EA A6D4 

1444 

BE7EA LDX ZD4 

E7EC D03F 

1445 

BNE BE82D 

E7EE C914 

1446 

CMP $14 

E7F0 D037 

1447 

BNE BE829 

E7F2 A4D5 

1448 

LDY ZD5 

E7F4 RIDI 

1449 

LDA (ZD1),Y 

E7F6 C920 

1450 

CMP $20 

E7F8 DO04 

1451 

BNE BE7FE 

E7FA C4U3 

1452 

CPY ZD3 

E7FC D007 

1453 

BNE BE805 

E7FE C04F 

1454 

BE7FE CPY $4F 

E800 F024 

1455 

BEQ BE826 

E802 2065E9 

1456 

JSR SE965 

E805 A4D5 

1457 

BE805 LDY ZD5 

E807 2024EA 

1458 

JSR SEA24 

E80A 88 

1459 

BE80A DEY 

E80B B1D1 

1460 

LDA (ZD1),Y 

E80D C8 

1461 

1NY 

E80E 91D1 

1462 

STA (ZDl).Y 

E810 88 

1463 

DEY 

E811 B1F3 

1464 

LDA (ZF3),Y 

E813 C8 

1465 

INY 

E814 91F3 , 

1466 

STA (ZF3),Y 

E816 88 

1467 

DEY 

E817 C4D3 

1468 

CPY ZD3 

E819 D0EF 

1469 

BNE BES0A 

E81B A920 

1470 

LDA $20 

E81D 9IDI 

1471 

STA < ZD1),Y 

E81F AD8602 

1472 

LDA X0Z86 

E822 91F3 

1473 

STA (ZF3),Y 

E824 E6D8 

1474 

INC ZD8 

£826 4CA8E6 

1475 

1476 

BE826 JMP BE6A8 

» 

E829 A6D8 

1477 

BE829 LDX ZD8 

E82B F005 

1478 

BEQ BE832 

E82D 0940 

1479 

BE82D ORA $40 

E82F 4C97E6 

1480 

1481 

JMP JE697 

9 

E832 C911 

1482 

BE832 CMP $11 

EB34 D016 

1483 

BNE BE84C 

EB36 A6D6 

1484 

LDX ZD6 

E838 F03 1 


’llCIIf.1 

£83 A C6D6 

1466 

DEC ZD6 

E83C A5D3 

1487 

LDA ZD3 

E83E 38 

1488 

SEC 

E83F E928 

1489 

SBC $28 


;re«ove shift bit 
;lf code for FI 

;set screen code for PI 
;if printable 

;go fili screen 

;if shlfted Return 

;do Return functlon 

;if in strlng mode 

;do not perform control functions 

;lf Insert key 


;and last character of line le a blank 

and not also current char posltion 
;then enough space on this line 
;if last character of line not blank 
;and 80 character line, ignore 
;else insert a blank line in screen RAM 
jget nev maximum character posltion 
;set color cernory address 
;froo new'maximum character posltion 
;nove charactera 

;towards end of line 

;plus color memory 


;up to current posltion 


;insert a blank 

;insert current color in color memory 
;add 1 to pendlng inserta coont 
;and exit 

JLf any pendlng inserta 

;add screen shift bit 
jgo fili screen 

;if Cursor Up key 


land cursor not on top screen line 
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E841 

9004 

1490 


BCC 

BE847 

;and current cursor posltion > c 40 

E843 

85D3 

1491 


STA 

ZD3 

jdecrease count by 40 

E845 

102A 

1492 


BFL 

BE871 

;and exit 

E847 

206CE5 

1493 

BE847 

JSR 

SE56C 

;aet address of current screen line 

E84A 

D025 

1494 


BNE 

BE871 


E84C 

C912 

1495 

BE84C 

CMF 

$12 

;if Reverse Off key 

E84E 

D004 

1496 


BNE 

BE854 


E850 

A900 

1497 


LDA 

$00 


E852 

85C7 

1498 


STA 

za 

;clear rever6e video switch 

E854 

C91D 

1499 

BE854 

CMP 

$1D 

;if Cursor Left 

E856 

D012 

1500 


BNE 

BE86A 


E858 

98 

1501 


TV A 



E859 

F009 

1502 


BEQ 

BE864 

;and cursor not beyond left aargin, 

E85B 

20A1E8 

1503 


JSR 

SE8A1 

jcheck for left edge of a screen line 

E85E 

88 

1504 


DEV 


;back up cursor one posltion 

E85F 

84D3 

1505 


STY 

ZD3 

;and set cursor to ne» posltion 

E861 

4CA8E6 

1506 


JMP 

BE6A8 

;and exit 



1507 

» 




E864 

2001E7 

1508 

BE864 

JSR 

SE701 

;go backwards over line boundary 

E867 

4CA8E6 

1509 


JMP 

BE6A8 

;and exit 



1510 

r 




ESSA 

C913 

1511 

BE86A 

CMP 

$13 

;if CLR key 

E86C 

DO 06 

1512 


BNE 

BE874 


E86E 

2044E5 

1513 


JSR 

SE544 

;re-initialize screen 

E871 

4CA8E6 

1514 

BE871 

JMP 

BE6A8 

;and exit 



1515 

» 




E874 

0980 

1516 

BE874 

ORA 

$80 

;restor.e code to originai value 

E876 

20CBE8 

1517 


JSR 

SE8CB 

jcheck for a color change keystroke 

E879 

4C4FEC 

1518 


JMP 

JEC4P 

; check for special CliR$ values and return 



1519 

» 






1520 

;set next 

line number 



1521 

i 




E87C 

46C9 

1522 

SE87C 

LSR 

ZC9 

;set saved line 1 on screen invalld 

E87E 

A6D6 

1523 


LUX 

ZD6 

;get current line number 

E880 

E8 

1524 

BE880 

INX 


;and lncreaent lt 

E881 

E019 

1525 


CPX 

$19 

;if at end of screen 

E883 

D003 

1526 


BNE 

BE888 


E8S5 

20EAE8 

1527 


JSR 

SE8EA 

;scroll screen 

E888 

B5D9 

1528 

BE888 

LDA 

2D9,X 

;lf 80 cbaracter line. 

E88A 

10F4 

1529 


BPL 

BE880 

jrepeat 

E88C 

86D6 

1530 


STX 

ZD6 

;store new line number 

ESSE 

4C6CE5 

1531 


JMP 

SE56C 

;set addr of current screen line and return 
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1533 

;action for Return 




1534 

» 



E891 

A200 

1535 

JE891 LDX $00 


E893 

8608 

1536 

STX 

ZD8 

;clear pending inserts count 

E895 

86C7 

1537 

STX 

ZC7 

;reset reverse video switch 

E897 

8604 

1538 

STX 

ZD4 

;reset strlng flag 

E899 

8603 

1539 

STX 

ZD3 

;set curBor to position 0 on line 

E89B 

207CE8 

1540 

JSR SE87C 

;set next line number 

E89E 

4CA8E6 

1541 

JMP 

BE6A8 

;and exit 



1542 

» 





1543 

;nove cursor to prevlous line if at start of a screen line 



1544 




E8A1 

A202 

1545 5E8A1 LDX 

$02 


E8A3 A900 

1546 

LDA 

$00 


E8A5 

C5D3 

1547 

EE8A5 CMP 

ZD3 

;if cursor is not 

E8A7 

F007 

1548 

BEQ 

BE8B0 

;at thè left edge of a screen line. 

E8A9 

18 

1549 

CLC 



E8AA 6928 

1550 

ADC 

$28 

;set A for next left edge 

E 8 AC 

CA 

1551 

DEX 



E8AD D0F6 

1552 

BNE 

BE8A5 

;aud repeat a maximum of 2 times 

E8AF 

60 

1553 

RTS 





1554 

S 



E8B0 

C6D6 

1555 

BE8B0 DEC 

ZD6 

;since cursor at left edge, 

E8B2 

60 

1556 

RTS 


;move cursor to prevlous line 



1557 

1 





1558 

;move cursor to next line if at end of a screen line 



1559 

* 



E8B3 

A202 

1560 

SE8B3 LDX 

$02 


E8BS 

A927 

1561 

LDA 

$27 


E8B7 

C5D3 

1562 

BE8B7 CMP 

ZD3 

;if cursor is not at thè end of a line 

E8B9 

F007 

1563 

BEQ 

BE8C2 


E8BB 

18 

1564 

CLC 



E8BC 

6928 

1565 

ADC 

$28 

;point to next end of screen line 

E8BE 

CA 

1566 

DEX 



E8BF 

D0F6 

1567 

BNE 

BE8B7 

;and repeat a maximum of 2 times 

ESCI 

60 

1568 

RTS 





1569 

! 



E8C2 A6D6 

1570 

BE8C2 LDX 

ZD6 

;slnce cursor at right edge. 

E8C4 

E019 

1571 

CPX 

$19 


ESC 6 

F002 

1572 

BEQ 

BE8CA 


E8C8 

E 606 

1573 

INC 

ZD6 

;add l to cursor line number 

ESCA 

60 

1574 

BE8CA RTS 


;lf cur6or not on last screen line 



1575 

; 





1576 

; check for a color change keystroke 



1577 

» 



E8CB 

A20F 

1578 

SE8CB LDX 

$0F 


E8CD DDDAE8 

1579 

BE8CD CMP 

TE8DA.X 

{compare keystroke to color codec 

E8DO 

F004 

1580 

BEQ 

BE8D6 


E8D2 

CA 

1581 

DEX 



E8D3 

10F8 

1582 

BPL 

BE8CD 

;repeat for all 16 codes 

E8D5 

60 

1583 

RTS 





1584 

t 



E8D6 

8E8602 

1585 

BE8D6 STX 

X0286 

;set current color code upon a match 

E8D9 

60 

1586 

RTS 





1587 

t 



E8DA 


15B8 

TE8DA - 

* 

;color codes 

E8DA 

90051C 

1589 

.BY 

$90,$05,$IC,$9F,$9C,$1E,$1F,$9E 

E8E2 

819596 

1590 

• BY 

$81.$95, 

$96,$97,$98,$99,$9A,$9B 
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;save I/O pointer* on stack 


1592 jscroll screen 

1593 ; 

E8EA A5AC 1594 SE8EA LDA ZAC 

E8EC 48 1595 PHA 

E8ED A5AD 1596 EDA ZAB 

E8EF 48 1597 PHA 

E8FQ A5AE 1598 EDA ZAE 

E8F2 48 1599 PHA 

E8F3 ASAF 1600 LDA ZAF 

E8F5 48 1601 PHA 

E8F6 A2FF 1602 BE8F6 LDX $FF 

E8F8 C6D6 1603 DEC ZD6 

E8FA C6C9 1604 ?>EC ZC9 

E8FC CEA502 1605 DEC X02A5 

E8FF E8 1606 BE6FF IKX 

E900 20F0E9 1607 JSR SE9FO 

E903 E018 1608 CPX $18 

E905 BOOC 1609 BCS BE913 

E907 BDF1EC 1610 LDA TECFCH-l.X 

E90A 85AC 1611 STA ZAC 

E90C B5DA 1612 LDA ZDA,X 

E90E 20C8E9 1613 JSR SE9C8 

E911 30EC 1614 BMI BE8FF 

E913 20FFE9 1615 BE913 JSR SE9FF 

E916 A200 1616 LDX $00 

E918 B5D9 1617 BE918 LDA ZD9,X 

E91A 297F 1618 AND $7F 

E91C B4DA 1619 LDY ZDA.X 

E91E 1002 1620 BPL BE922 

E920 0980 1621 ORA $80 

E922 95D9 1622 BE922 SIA ZD9,X 

E924 E8 1623 INX 

E925 EOI8 1624 CPX $18 

E927 DOEF 1625 BKE BE918 

E929 A5F1 1626 LDA ZF1 

E92B 0980 1627 ORA $80 

E92D 85F1 1628 SIA ZF1 

E92F A5D9 1629 LDA ZD9 

E931 10C3 1630 BPL BE8F6 

E933 E6D6 1631 INC ZD6 

E935 EEA502 1632 INC X02A5 

E938 A97F 1633 LDA $7F 

E93A 8D00DC 1634 SIA XDCOO 

E93D .AD01DC 1635 LDA XDC01 

E940 C9FB 1636 CMP $FB 

E942 08 1637 PHP 

E943 A97F 1638 LDA $7F 

E945 8D00DC 1639 STA XDCOO 

E948 28 1640 PLP 

E949 DOOB 1641 BNE BE956 

E94B AOOO 1642 LDY $00 

E94D EA 1643 BE94D NOP 

E94E CA 1644 DEX 

E94F DOFC 1645 BNE BE94D 

E951 88 1646 DEY 

E952 D0F9 1647 BNE BE94D 

E954 84C6 1648 STY ZC6 

£956 A6D6 1649 BE956 .31; M ‘ 

E958 68 1650 JE958 PLA 

E959 85AF 1651 STA ZAF 


jinitialize line pointer 

;move cureor to previous line 

;also input cursor 

;and position of first 40 char line 

;set screen address 

;if 24 lines not moved up, 

;use screen line address table 
;to set next source address 
;high byte also 
;mov€ one line up 
;and repeat 

;clear last screen line 


;set a line to 80 character 
;if next line ls 80 characters 

;set to 40 'Ciuciti lare 


;repeat until bottoni of screen reached 
; set bottom line to 40 character 


;if top line is 80 characters, 

;then ecroll up agaln 

;else add 1 to cursor line oumber 

;and position of first 40 char line 


;if CTRL key is depressed. 


;delay to slow scrolling down 


idear keyboard buffer count 
;put cursor line number in X 

jrestore I/O area from stack 
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E95B 

68 

1652 


PIA 



E95C 

85AE 

1653 


STA 

ZAE 


E95E 

68 

1654 


PLA 



E95F 

85 AD 

1655 


STA 

2AD ' 


E961 

68 

1656 


PLA 



E962 

85AC 

1657 


STA 

ZAC 


E 964 

60 

1658 


RTS 





1659 

» 






1660 

;lnsert a 

blank line In screen RAM 



1661 

» 




E965 

A6D6 

1662 

SE965 

LDX 

ZD6 

; start fro» current cursor line posltion 

E967 

E8 

1663 

JE967 

1NX 



E968 

B5D9 

1664 


LDA 

ZD9.X 


E96A 

10FB 

1665 


BPL 

JE967 

;skip 80 column linee 

E96C 

8EA502 

1666 


STX 

X02A5 

;save posltion of first 40 column line 

E96P 

EOI 8 

1667 


CPX 

$18 

;if line 24 

E971 

FOOE 

1668 


BEq 

BE981 


E973 

900C 

1669 


BCC 

BE981 


E975 

20EAE8 

1670 


JSR 

SERBA 

;scroll scteen > 

E978 

AEA502 

1671 


LDX 

X02A5 

;first 40 coluam line beyond cursor 

E97B 

CA 

1672 


DEX 


;minu8 1 “ new cursor line number 

E97C 

C6D6 

1673 


DEC 

ZD6 

;decrement cursor line number 

E97E 

4CDAE6 

1674 


JMF 

BE6DA 

;and go reset screen line polnters 



1675 

! 




E981 

A5AC 

1676 

BE981 

LDA 

ZAC 

;save I/O polnters on thè stack 

E983 

48 

1677 


PUA 



E984 

A5AD 

1678 


LDA 

ZAD 


E986 

48 

1679 


FHA 



E987 

A5AE 

1680 


LDA 

ZAE 


E989 

48 

1681 


FHA 



E9BA 

ASAF 

1682 


LDA 

ZAF 


E98C 

48 

1683 


FHA 



E98D 

A219 

1684 


LDX 

$19 

;lnltlallze to line 25 

E98F 

CA 

1685 

BE98F 

DEX 



E990 

20F0E9 

1686 


JSR 

SE9F0 

;set true screen address in ZDl/2 

E993 

ECA502 

1687 


CFX 

X02A5 

;if not past first 40 column line. 

E996 

900E 

1688 


BCC 

BE9A6 


E998 

FOOC 

1689 


BEQ 

BE9A6 


E99A 

BDEFEC 

1690 


LDA 

TECFO-l.X 

;uae screen line address 

E99D 

85AC 

1691 


STA 

ZAC 

;to set source address 

R99F 

B5D8 

1692 


LDA 

ZD8.X 


E9A1 

20C8E9 

1693 


JSR 

SE9C8 

;move one line up 

E9A4 

30E9 

1694 


BMX 

BE98F 

; and repeat 

E9A6 

20FFE9 

1695 

BE9A6 JSR 

SE9FF 

;clear screen line 

E9A9 

A217 

1696 


LDX 

$17 


E9AB 

ECA502 

1697 

BE9AB CPX 

X02A5 

;lf first 40 column line - 24 or 25, 

E9AE 

900F 

1698 


BCC 

BE9BF 


E9B0 

B5DA 

1699 


LDA 

ZDA.X 


E9B2 

297f 

1700 


AHD 

$7F 

;set next line to 40 column 

E9B4 

B4D9 

1701 


LDY 

ZD9.X 


E9B6 

1002 

1702 


BFL 

BE9BA 

;lf current line ls 80 column, 

E9B8 

0980 

1703 


ORA 

$80 

;make lnto 40 column 

E9BA 

95DA 

1704 

BE9BA 

STA 

ZDA.X 


E9BC 

CA 

1705 


DEX 



E9BD 

DOEC 

1706 


BNE 

BE9AB 

;and repeat 

E9BF 

AEA502 

1707 

BE9BF LDX 

X02A5 

;get first 40 column line beyond cursor 

E9C2 

20DAE6 

1708 


JSR 

BE6DA 

; adjust line polnters 

E9C5 

4C58E9 

1709 


JHF 

JE958 

;and exit 
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1711 

;tnove 

one 

screen line 



1712 

t 




E9C8 

2903 

1713 

SE9C8 

AND 

$03 

; ad just addr to clear 40/80 colunn 

E9CA 

0D8802 

1714 


ORA 

X0288 

;add screen memory page 

E9CD 

85AD 

1715 


STA 

ZAD 

;and save high part o£ addrsss 

E9CF 

20E0E9 

1716 


JSR 

SE9EO 

;set color memory address in ZAE/F 

E9D2 

A027 

1717 


LDY 

$27 


E9D4 

B1AC 

1718 

BE9D4 

EDA 

(ZACj.Y 

;aove screen byte 

E9D6 

91D1 

1719 


STA 

(ZD1),Y 


E9DB 

B1AE 

1720 


LDA 

(ZAE),Y 

;move color memory byte 

E9DA 

91F3 

1721 


STA 

(ZF3),Y 


E9DC 

88 

1722 


DEY 



E9DD 

10F5 

1723 


BPL 

BE9D4 

jrepeat tot one screen line 

E9DF 

60 

1724 


RTS 





1725 

> 






1726 

;set color and screen addresses 



1727 

J 




E9E0 

2C24EA 

1728 

SE9E0 

JSR 

SEA24 

;set color memory pointer in ZF3/4 

E9E3 

A5AC 

1729 


LDA 

ZAC 

;move lov byte of screen address 

E9E5 

85AE 

1730 


STA 

ZAE 


E9E7 

A5AD 

1731 


LDA 

ZAD 

;get high byte of screen address 

E9E9 

2903 

1732 


AND $03 

;strip 40/80 column flag 

E9EB 

09D8 

1733 


ORA $D8 

;add screen page for color memory 

E9ED 

85AF 

1734 


STA 

ZAF 

;and store result 

E9EF 

60 

1735 


RTS 





1736 

; 






1737 

;fetch screen address, dependlng on X 



1738 

9 




E9F0 

BDFOEC 

1739 

SE9F0 EDA 

TECF0,X 

;set low byte of screen address 

E9F3 

8SD1 

1740 


STA 

ZD1 

' 

E9F5 

B5D9 

1741 


LDA 

ZD9,X 

;fetch high byte 

E9F7 

2903 

1742 


AND 

$03 

; strip 40/80' coiumn flag 

E9F9 

OD8802 

1743 


ORA 

X0288 

;add screen memory page 

E9FC 

85D2 

1744 


STA 

ZD2 

;and store result 

E9FE 

60 

1745 


RTS 
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1747 

jclear one screen 



1748 

; 


E9FF 

A027 

1749 

SE9FF 

LDY $27 

EA01 

20P0E9 

17S0 


JSR SE9F0 

EA04 

2024EA 

1751 


JSR SEA24 

EAO? 

A920 

1752 

BEA07 

EDA $20 

EA09 

9 IDI 

1753 


SIA (ZD1),Y 

EAOB 

20DAE4 

17 54 


JSR SE4DA 

EAOE 

EA 

1755 


N0P 

EAOF 

88 

1756 


DEI 

eaio 

10F5 

1757 


BPL BEA07 

E Al 2 

60 

1758 


RTS 



1759 

» 




1760 

;set cursor flash 



1761 

» 


EA13 

A8 

1762 

SEA13 

TAY 

EA14 

A902 

1763 


LDA $02 

EAlfe 

85CD 

1764 


STA ZCD 

EA18 

2024EA 

1765 


JSR SEA24 

EA1B 

98 

1766 


TYA 



1767 

» 




1768 

jstore a character 



1769 

| 


EA1C 

A4D3 

1770 

SEA1C 

LDY ZD3 

EA1E 

91D1 

1771 


STA (ZDl),Y 

EA20 

8A 

1772 


TXA 

EA21 

91F3 

1773 


STA (ZF3),Y 

EA23 

60 

1774 


RTS 



1775 

1 




1776 

;set color memory ; 



1777 

; 


EA24 

A5D1 

1778 

SEA24 

EDA ZD1 

EA26 

85F3 

1779 


STA ZF3 

EA28 

A5D2 

1780 


EDA ZD2 

EA2A 

2903 

1781 


AND $03 

EA2C 

Q9D8 

1782 


ORA $D8 

EA2E 

85F4 

1783 


STA ZF4 

EA30 

60 

1784 


RTS 


line 


;set true screen RAM address 
;set color memory address 

;clear a byte In video RAM 
;clear a byte in color memory 
;(length adjustment for patch) 

;repeat for one line 


timing and color memory address 


;lnlt cursor flash timing countdown 
;set color memory address 


to thè screen 

;fetch position on line 

;move char to current screen address 

;fetch character color 

;move to color memory 


address parallel to screen 

;move low screen address 
;tO low of color memory address 
;fetch high of screen address 
;clear 40/80 calumo flag 
; ad just to color memory area 
;set high of color memory address 
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1786 ;sterdard IRQ entry 




1787 ; 


EA31 

20EAFF 

1788 WEA31 

JSR SFFEA 

E A3 4 

A5CC 

1789 

EDA ZCC 

EA36 D029 

1790 

BNE BEA61 

EA38 

C6CD 

1791 

DEC ZCD 

EA3A 

0025 

1792 

BNE BEA61 

EA3C 

A914 

1793 

LDA $14 

EA3E 

85CD 

1794 

STA ZCD 

EA40 

A4D3 

1795 

LDY ZD3 

EA42 

46CF 

1796 

LSR ZCF 

E A4 4 

AE8702 

1797 

LDX X0287 

E A4 7 

B1D1 

1798 

LDA (ZD1) 

EA49 

B011 

1799 

BCS BEA5C 

EA4B 

E6CF 

1800 

INC ZCF 

EA4D 

85CE 

1801 

STA ZCE 

EA4F 

2 024 E A 

1802 

JSR SEA24 

EA52 

B1F3 

1803 

LDA (ZF3) 

EA54 

808702 

1804 

STA X0287 

EA57 

AE8602 

1805 

LDX X0286 

EA5A ASCE 

1806 

LDA ZCE 

EASC 4980 

1607 BEA5C E0R $80 

EA5E 

201CEA 

1808 

JSR SEA1C 

EA61 

A501 

1809 BEAól 

LDA Z01 

EA63 

2910 

1810 

AND $10 

EA65 

FOOA 

1811 

BEQ BEA71 

EA67 

A000 

1812 

LDY $00 

EA69 

84C0 

1813 

STY ZCO 

EA6B A501 

1814 

LDA Z01 

EA6D 

0920 

1815 

ORA $20 

EA6F D008 

1816 

BNE BEA79 

EA71 

A5C0 

1817 BEA71 

LDA ZCO 

EA73 

0006 

1818 

BNE BEA7B 

EA75 

A501 

1819 

LDA Z01 

EA77 

291F 

1820 

AND $1F 

EA79 

8501 

1821 BEA79 

STA ZOl 

EA7B 

2087EA 1822 BEA7B 

JSR SEA87 

EA7E adoddc 

1823 

LDA XDCOD 

EA81 

68 

1824 

PLA 

EA82 

A8 

1825 

TAY 

EA83 

68 

1826 

PLA 

EA84 

AA 

1827 

TAX 

EA85 

68 

1828 

PLA 

EA86 

40 

1629 

RTI 


;bump reai tlme clock 
; check cursor flash enable flag 
;don't flash lf non-zero 
;decrement cursor flash countdown 
;and skip if-not flnished (flash delay) 
;reset jiffy count for nezt cursor fllp 

;fetch cursor posltion 

;shift cursor flash phase 

jfetch color under cursor 

;get character under cursor 

jbranch if not flrst entry for character 

;set cursor flash phase to 1 

;save character under cursor 

;set color memory address 

;save color under cursor 
;get current color code 
;get current character 
;invert character 
; display on screen 
;check cassette seuse line 

;if no buttons pressed 

;clear tape motor flag 

;turn motor off 
; JMP 

;check tape motor flag 

;lf flag shows motor should be on, 

;turn cassette motor on 

;scan keyboard 

;clear any pending IRQ's in ICR1 
;restore all registers 


; return from IRQ 
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1831 

;6can 

keyboard 



1832 

J 



EA87 

A900 

1833 

SEA87 

LDA 

$00 

EA89 

8D8D02 

1834 


STA 

X028D 

EA8C 

A040 

1835 


LDY 

$40 

EA8E 

84 CB 

1836 


STY 

ZCB 

EA90 

8DOODC 

1837 


STA 

XDCOO 

EA93 

AE01DC 

1838 


LDX 

XDC01 

EA96 

EOFF 

1839 


CPX 

$FF 

EA98 

F061 

1840 


BEQ 

BEAFB 

EA9A 

A8 

1841 


TAY 


EA9B 

A981 

1842 


LDA 

<TEB81 

EA9D 

85F5 

1843 


STA 

ZF5 

EA9F 

A9EB 

1844 


LDA 

>TEB81 

EAA1 

85F6 

1845 


STA 

ZF6 

EAA3 

A9FE 

1846 


LDA 

$FE 

EAA5 

8D00DC 

1847 


STA 

XDCOO 

EAA8 

A208 

1848 

BEAA8 

LDX 

$08 

EAAA 

48 

1849 


PHA 


EAAB 

AD01DC 

1850 

BEAAB 

LDA 

XDC01 

EAAE 

CD01DC 

1851 


CKP 

XDC01 

LABI 

D0F8 

1852 


BKE 

BEAAB 

EAB3 

4A 

1853 

BEAB3 

LSR 

A 

EAB4 

BOI 6 

1854 


BCS 

BEACC 

EAB6 

48 

1855 


PHA 


EAB7 

B1F5 

1856 


LDA 

(ZF5),Y 

EÀB9 

C905 

1857 


CMP 

$05 

EABB 

BOOC 

1858 


BCS 

BEAC9 

EABD 

C903 

1859 

\ 

CMP 

$03 

EABF 

F008 

1860 


BEQ 

BEAC9 

EAC1 

0D8D02 

1861 


ORA 

X028D 

EAC4 

8D8D02 

1862 


STA 

X028D 

EAC7 

1002 

1863 


BPL 

BEACB 

EAC9 

84CB 

1864 

BEAC9 

STY 

ZCB 

EACB 

68 

1865 

BEACB 

PLA 


EACC 

C8 

1866 

BEACC 

IKY 


EACD 

0041 

1867 


CPY 

$41 

EACF 

BOOB 

1868 


BCS 

BEADC 

EADi 

CA 

1869 


DEX 


EAD2 

DODF 

1870 


BUE 

BEAB3 

EAD4 

38 

1871 


SEC 


EAD5 

68 

1872 


PLA 


EAD6 

2A 

1873 


KOL 

A 

EAD7 

8D00DC 

1874 


STA 

XDCOO 

EADA 

DOCC 

1875 


BNE 

BEAA8 

EADC 

68 

1876 

BEADC 

PLA 


EADD 

6C8F02 

1877 


JHP 

(X028F) 



1878 

t 



EAEO 

A4CB 

1879 

JEAEO 

LDY 

ZCB 

EAE2 

B1F5 

1880 


LDA 

(ZF5),Y 

EAE4 

AA 

1881 


TAX 


EAE5 

C4C5 

1882 


CPY 

ZCS 

EAE7 

F007 

1683 


BEQ 

BEAFO 

EAE9 

A010 

1884 


LDY 

$10 

EAEB 

8C8C02 

1885 


STY 

X028C 

eaee 

DO 36 

1886 


BNE 

BEB26 



1887 

J 



eafo 

29 7F 

1888 

BEAFO 

AND 

$7F 

EAF2 

2C8A02 

1889 


BIT 

X028A 

EAF5 

3016 

1890 


BUI 

BEBOD 


;clear shift/control flag 

;aet key pressed flag to default 
;clear row 
; check column 

;if a key pressed 
;save in Y 

;sel address of standard keyboard table 
; in keyboard table pointer 

;& high byte 

;set first row 
;column counr 

;save current row on stack 
;read a column 

;walt untll steady 

;if a key is pressed, 

;save on etack 

;fetch keyboard table contenta 
;if < 5 

; check for Commodore key 

;add posslble shift/control flag 
;to set keyboard shift/control flag 

;set key pressed „ 

;restore last code read 


;if scan not complete, 

;check next bit in column data 

;else restore row posltion 
;select next row 

;and repeat 
;restore code 

;perfora kbd decode routine (EB48) 

;fetcb key pressed 
;decode via keyboard table 

;if not thè same as thè last key. 


;set repeat key delay counter 
;and sklp repeat logie 


;if repeat flag has 

;blt 7 set, repeat all keya 
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EAF7 

7049 

1891 


BVS 

BEB42 

EAF9 

C97F 

1892 


CMP 

$7F 

EAFB 

F029 

1893 

BEAFB 

BEQ 

BEB26 

EAFD 

C914 

1894 


CMP 

$14 

EAFF 

F00C 

1895 


BEQ 

BEBOD 

EB01 

C920 

1896 


CMP 

$20 

EB03 

F008 

1897 


BEQ 

BEBOD 

EB05 

C91D 

1898 


CMP 

$1D 

EB07 

F004 

1899 


BEQ 

BEBOD 

EB09 

C911 

1900 


CMP 

$11 

EBOB 

0035 

1901 


BNE 

BEB42 

EBOD 

AC8C02 

1902 

BEB0D 

ldy 

X028C 

EB10 

F005 

1903 


BEQ 

BEB17 

EB12 

CE8C02 

1904 


DEC 

XQ28C 

EB15 

002 B 

1905 


BNE 

BEB42 

EB17 

CE8B02 

1906 

BEB17 

DEC 

X028B 

EB1A 

D026 

1907 


BNE 

BEB42 

EB1C 

A004 

1908 


LDY 

$04 

EB1E 

8C8B02 

1909 


STY 

X028B 

EB21 

A4C6 

1910 


LDY 

ZC6 

EB23 

88 

1911 


DEY 


EB24 

101C 

1912 


BPL 

BEB42 

EB26 

A4CB 

1913 

BEB26 

LDY 

ZCB 

EB28 

84C5 

1914 


STY 

ZC5 

EB2A 

AC8D02 

1915 


LDY 

X028D 

EB2D 

8C8E02 

1916 


STY 

X028E 

EB30 EOFF 

1917 


CPX 

$FF 

EB32 

FOOE 

1918 


BEQ 

BEB42 

EB34 

8A 

1919 


TXA 


EB35 

A6C6 

1920 


LDX 

ZC6 

EB37 

EC8902 

1921 


CPX 

X0289 

EB3A 

B006 

1922 


BCS 

BEB42 

EB3C 

9D7702 

1923 


STA 

X0277.X 

EB3P 

E8 

1924 


INX 


EB40 

86C6 

1925 


STX 

ZC6 

EB42 

A97F 

1926 

BEB42 

LDA 

$7F 

EB44 

8D00DC 

1927 


STA 

XDCOO 

EB47 

60 

1928 


RTS 




1929 

* 



EB48 

AD8D02 

1930 

WEB48 

LDA 

X028D 

EB4B 

C903 

1931 


CMP 

$03 

EB4D 

0015 

1932 


BNE 

BEB64 

EB4F 

CD8E02 

1933 


CMP 

X028E 

EB52 

FOEE 

1934 


BEQ 

BEB42 

EB54.AD9102 

1935 


LDA 

X0291 

EB57 

301D 

1936 


BMI 

BEB76 

EB39 

AD18D0 

1937 


LDA 

XD018 

EB5C 4902 

1938 


EOR 

$02 

EB5E 8D18DO 

1939 


STA 

XD018 

EB61 

4C76EB 

1940 


JMP 

BEB76 


jexit when flag > 63 


;delete 

jspace 

jcursor right/left 
jcursor doun/up 

;if none of above, don't repeat 
jcheck repeat key delay counter 
jcountdown complete 

jsubtract 1 from repeat key delay ctr 
jsubtract l froa repeat key freq ctr 


; reset repeat key frequency counter 
; check keyboard buffer count 

jbranch if something in keyboard queue 
;move current key 
;to last key 

jmove shift/control flag 
;to last shift pattern 


;check keyboard queue length 

jagainst maximum allowed 

jbranch lf buffer full 

jelse move character to keybord queue 

;add 1 to length of keyboard queue 
jset PAI blts high 


; check shift/control flag 
;for Commodore key and shift depressed 
;if so, and code is different 
jfrom last keyboard shift pattern 

;and not in shift lock mode 


jthen toggle lower case/upper case bit 
jset video chip bit for proper display 
jexit 
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1942 ;aelecc new keyboard table 

1943 ; 

EB64 OA 1944 BEB64 ASL A ; doublé entry index 

EB65 C908 1945 CMF $08 ;if index is too high, 

EB67 9002 1946 BCC BEB6B 

EB69 A906 1947 LDA $06 ;seleet "Control Key" keyboard 

EB6B AA 1948 BEB6B TAX 

EB6C BD79EB 1949 LDA TEB79.X ;fetch low byte froo table 

EB6F 85F5 1950 STA ZF5 ;and eet keyboard table pointer 

EB71 BD7AEB 1951 LDA TEB79+1,X 

EB74 85F6 1952 STA ZF6 ;i high byte 

EB76 4CE0EA 1953 BEB76 JMP JEAEO ;exit 

1954 ; 

1955 ;table of keyboard table addreases 

1956 ; 

EB79 81EB 1957 TEB79 .V TEB81 ;Standard keyboard 

EB7b C2EB 1958 .W TEBC2 ;"Shift" keyboard 

EB7D 03EC 1959 .W TEC03 ;"Comoodore Key" keyboard 

EB?F 78EC 1960 .« TEC78 ;"Control" keyboard 

1961 ; 

1962 ; standard keyboard 

1963 ; 

EB81 140D1D 1964 TEB81 .BY $14 ,$0D,$1D,$88,$85,$86,$87,$11 

EB89 335741 1965 .BY $33,$57,$41,$34,$5A,$53,$45,$01 

EB91 355244 1966 .BY $35,$52,$44,$36,$43,$46,$54,$58 

EB99 375947 1967 ,BY $37,$59,$47,$38,$42,$48,$55,$56 

EBA1 39494A 1968 .BY $39,$49,$4A,$30,$4D,$4B,$4F,$4E 

EBA9 2B504C 1969 .BY $2B,$50,$4C,$21>,$2E,$3A,$40,$2C 

EBBI 5C2A3B 1970 .BY $5C,$2A,$3B,$l3,$01,$3D,$5E,$2F 

EBB9 315F04 1971 .BY $31 ,$5F,$04,$32,$20,$02,$51,$03,$FF 


1972 

1973 

1974 


"Shlft* keyboard table 


EBC2 948D9D 1975 TEBC2 -BY $94,$8D,$9B,$8C,$89,$8A,$8B,$91 

ESCA 23D7C1 1976 .BY $23,$D7,$C1,$24,$DA,$D3,$C5,01 

EBD2 25D2C4 1977 .BY $25,$D2,$C4,$26,$C3,$C6,$D4,$D8 

EBDA 27D9C7 197B .BY $27,$D9,$C7,$28,$C2,$C8,$D5,$D6 

EBE2 29C9CA 1979 .BY $29,$C9,$CA,$30,$CD,$CB,$CF,$CE 

EBEA DBD0CC 1980 -BY $DB,$D0,$CC,$DD,$3E,$5B,$BA,$3C 

EBF2 A9C05D 1981 .BY $A9,$C0,$5D,$93,$01,$30,$DE,$3F 

EBFA 215F04 1982 .BY $21,$5F,$04,$22.$AO,$02,$D1,$83,$FF 


1983 ; 


1984 ;"Comaodore Key" keyboard table 

1985 ; 

EC03 94BD9D 1986 TEC03 -BY $94,$8D,$9D,$8C,$89,$8A,$8B,$91 


ECOB 96B3B0 1987 .BY $96,$B3,$B0,$97,$AD,$AE,$B1,$01 

EC13 98B2AC 1986 -BY $98,$B2,$AC,$99,$BC,$BB,$A3,$BD 

EC1B 9AB7A5 1989 .BY $9A,$B7,$A5,$9B,$BF,$B4,$B8,$BE 

EC23 29A2B5 1990 .BY $29,$A2,$B5,$30,$A7,$A1,$89,$AA 

EC2B A6AFB6 1991 .BY $A6,$AF,$B6,$DC,$3E,$5B,$A4,$3C 

EC33 A8DF5D 1992 .BY $A8,$DF,$5D,$93,$01,$3D,$DE,$3F 

EC3B 815F04 1993 -BY $81,$5F,$04,$95,$AO,$02,$AB,$83,$FF 
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L995 ;check for special CHR$ values 
1996 ; 

EC44 C90E 1997 JEC44 CMP $0E ;lf CHR$(14) to be printed, 

EC46 D007 1998 BNE JEC4F 

EC48 AD18D0 1999 LDA XD018 

EC4B 0902 2000 ORA $02 ;set value for unshift/shift 

EC40 D009 2001 BNE BEC58 ;reset address and exit 

EC4F C98E 2002 JEC4F CMP $8E ;if CHR$(142) to be printed, 

EC51 D00B 2003 BNE BEC5E 

EC53 ADI800 2004 LDA XD018 

EC56 29FD 2005 AND $FD ;set value for shift/graphics 

EC58 8D18D0 2006 BEC58 STA XD018 ; reset video chip register 

EC5B 4CA8E6 2007 BEC5B JMP BE6AS ;exit 

2008 ; 

EC5E C908 2009 BEC5E CMP $08 ;lf CHR$(8) to be printed, 

EC60 D007 2010 BNE BEC69 

EC62 A980 2011 LDA $80 ;set Shift mode to locked 

EC64 0D9102 2012 ORA X0291 

EC67 3009 2013 BMI BEC72 ;and exit 

EC69 C909 2014 BEC69 CMP $09 ;if CHR$(9) to be printed, 

EC6B DOEE 2015 BNE BEC5B 

EC6D AS7F 2016 LDA $7F ;clear shift locR flag 

EC6F 2D9102 2017 AND X0291 

EC72 8D9102 2018 BEC72 STA X02S1 jcondition shift lock flag 

EC75 4CA8E6 2019 JMP BE6A8 ;exit 

2020 ; 

2021 ;"Control Key" keyboard cable 

2022 ; 

EC78 FFFFFF 2023 TEC78 .BY $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 

EC80 1C1701 2024 .BY $1C,$17,$01,$9F,$1A,$13,$05,$FF 

EC88 9C1204 2025 .BY $9C,$12,$04,$1E,$03,$06,$14,$18 

EC90*1F1907 2026 .BY $1F,$19,$07,$9E,$02,$08,$15,$16 

EC98 12090A 2027 .BY $12,$09,$OA,$92,$OD,$OB,$OF,$OE 

ECAO FF100C 2028 .BY $FF,$10,$OC,$FF,$FF,$1B,$00,$FF 

ECA8 1CFF1D 2029 .BY $1C,$FF,$1D,$FF,$FF,$1F,$1E,$FF 

ECBO 9006FF 2030 .BY $90,$06 ,$FF,$05,$FF,$FF,$U,$FF,$FF 
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2032 

; standard 

values 

for 

video chip 



2033 

» 






ECB9 

00 

2034 TECB9 

• BY 

$00 


+ 

00, MOB 0 X position 

ECBA 

00 

2035 


■ BY 

$00 


+ 

01, MOB 0 Y posi don 

ECBB 

00 

2036 


-BY 

$00 


+ 

02, MOB 1 X posidon 

ECBC 

00 

2037 


• BY 

$00 


+ 

03, MOB 1 Y posidon 

ECBD 

00 

2038 


• BY 

$00 


+ 

04, MOB 2 X posidon 

ECBE 

00 

2039 


• BY 

$00 


+ 

05, MOB 2 Y posidon 

ECBF 

00 

2040 


• BY 

$00 


+ 

06, MOB 3 X posidon 

ECCO 

00 

2041 


-BY 

$00 


+ 

07, MOB 3 Y posìtion 

ECC1 

00 

2042 


.BY 

$00 


+ 

08, MOB 4 X posidon 

ECC2 

00 

2043 


.BY 

$00 


+ 

09, MOB 4 Y posidon 

ECC3 

00 

2044 


-BY 

$oo 


+ 

OA, MOB 5 X posidon 

ECC4 

00 

2045 


• BY 

$00 



OB, MOB 5 Y posidon 

ECC5 

00 

2046 


-BY 

$oc 


+ 

OC, MOB 6 X posidon 

ECC6 

00 

2047 


• BY 

$00 



OD, MOB 6 Y posidon 

ECC7 

00 

2048 


• BY 

$00 


+ 

OE, MOB 7 X position 

ECC8 

00 

2049 


• BY 

$00 


+ 

OF, MOB 7 Y position 

ECC9 

00 

2050 


■ BY 

$00 


+ 

10, MSB of X posidon 

ECCA 

9B 

2051 


.BY 

$9B 


♦ 

11, RC3, DEN, RSEL, Y1 and YO 

ECCB 

37 

2052 


-BY 

$37 


+ 

12, Raster Register 

ECCC 

00 

2053 


-BY 

$00 


+ 

13, Ughi Pen X 

ECCD 

00 

2054 


• BY 

$00 


+ 

14, Light Pen Y 

ECCE 

00 

2055 


• BY 

$00 


+ 

15, MOB Enable 

ECCE 

08 

2056 


■ BY 

$08 


+ 

16, CSEL set 

ECCO 

00 

2057 


• BY 

$00 


+ 

17, MOB Y expand 

ecdi 

14 

2058 


-BY 

$14 


+ 

18, Memory Pointers 

ECD2 

or 

2059 


• BY 

$0F 


+ 

19, Interrupt Register 

ECD3 

00 

2060 


.BY 

$00 


•f 

1A, Enable Interrupts 

ECD4 

00 

2061 


-BY 

$00 


+ 

1B, MOB-Data priority 

ECD5 

00 

2062 


■ BY 

$00 


+ 

1C, MOB Muld-Color selection 

ECD6 

00 

2063 


• BY 

$00 


+ 

1D, MOB X-expand 

ECD7 

00 

2064 


.BY 

$00 


+ 

1E, MOB-MOB collision 

ECD8 

00 

2065 


-BY 

$00 


+ 

1F, MOB-Data collision 

ECD9 

OE 

2066 


• BY 

$0E 


+ 

20, Exterior color 

ECDA 

06 

2067 


.BY 

$06 


+ 

21, Background # 0 color 

ECDB 

01 

2068 


• BY 

$01 


+ 

22, Background t 1 color 

ECDC 

02 

2069 


• BY 

$02 


+ 

23, Background # 2 color 

ECCD 

03 

2070 


-BY 

$03 


+ 

24, Background # 3 color 

ECDE 

04 

2071 


-BY 

$04 


+ 

25, MOB Multi-Color t 0 

ECDF 

00 

2072 


-BY 

$00 


+ 

26, MOB Multi-Color # 1 

ECEO 

01 

2073 


•BY 

$01 


+ 

27, HOB 0 color 

ECE1 

02 

2074 


-BY 

$02 


+ 

28, MOB 1 color 

ECE2 

03 

2075 


• BY 

$03 


+ 

29, MOB 2 color 

ECE3 

04 

2076 


.BY 

$04 


+ 

2A, MOB 3 color 

ECE4 

05 

2077 


.BY 

$05 


+ 

2B, MOB 4 color 

ECE5 

06 

2078 


.BY 

$06 


+ 

2C, MOB 5 color 

ECE6 

07 

2079 


• BY 

$07 


+ 

2D, MOB 6 color 



2080 

;+2e. 

KOB 

7 color lnitialized to $4C 



2081 

; 








2082 

;keyboard 

buffer 

entry 

for shift of Run/Stop key 



2083 

y 






ECE7 

4C4F41 

2084 

TECE7 

.BY 

'L.'O. 

A,'D,$0D 

ECEC 

52554E 

2085 


.BY 

'R.'U,' 

8,$0D 




2086 

* 








2087 

;table of 

low bytes of 

ficreeu line addreeses 



2088 

t 






ECEO 

002850 

2089 

TECFO 

• BY 

$00,$28,$5O,$78,$A0,$C8,$F0,$18 

ECF8 

406890 

2090 


.BY 

$40,$68,$90,$B8,$E0,$O8,$30,$58 

EDOO 

80A8D0 

2091 


-BY 

$80,$AB,$D0,$F8,$20,$48,$70,$98,$C0 
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2093 ;send TALK on serial bus 

2094 ; 

ED09 0940 2095 SED09 ORA $40 ;add offset for TALK 

EDOB 2C 2096 -BY $2C ;skip next Instruction 

2097 ; 

2098 isend LISTEN on serial bus 




2099 

i 



ED0C 

0920 

2100 

SED0C 

ORA 

$20 

ED0E 

20A4F0 

2101 


JSR 

SF0A4 

ED11 

48 

2102 

SEDI 1 

PHA 


EDI 2 

2494 

2103 


BIT 

Z94 

ED14 

100 A 

2104 


BPL 

BED20 

ED16 

38 

2105 


SEC 


ED17 

66A3 

2106 


R0R 

ZA3 

EDI 9 

2040ED 

2107 


JSR 

SED40 

ED1C 

4694 

2108 


LSR 

Z94 

EDIE 

4 6 A3 

2109 


LSR 

ZA3 

ED20 

68 

2110 

BED20 PLA 


ED21 

8595 

2111 


STA 

Z95 

ED23 

78 

2112 


SEI 


ED24 

2097EE 

2113 


JS& 

SEE97 

ED27 

C93F 

2114 


CKP 

$3F 

ED29 

D003 

2115 


Biffi 

BED2E 

ED2B 

2085EE 

2116 


JS8 

SEE85 

ED2E 

ADOODD 

2117 

BED2E 

EDA 

XDD00 

ED31 

0908 

2118 


ORA 

$08 

ED33 

8D00DD 

2119 


STA 

XDD00 

ED36 

78 

2120 

SED36 

SEI 


ED37 

208EEE 

2121 


JSR 

SEE8E 

ED3A 

2097EE 

2122 


JSR 

SEE97 

ED3D 

20B3EE 

2123 


JSR 

SEEB3 


add offset for LISTE:: 
protect agalast RS-232 NMI's 
save code to tr ansai it 
if no data is pending 


; set EOI flag 

; output byte on serial bus 
jclear data pending flag 
idear EOI flag 
;move code to trausmit 
;into thè output buffer 

;set serial bus data line lov 

;if not UNL1STEK 
;set serial dock low 

;set serial ÀTN line high 
jdisable IRQ 
;set serial clock, -high 
;set serial data low 
jdelay 1 millisecond 
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2125 ;6end a byte fron 295 on serial bus 

2126 ; 


ED40 

78 

2127 

SED40 

SEI 


ED41 

2097EE 

2128 


JSR 

SEE97 

ED44 

20A9EE 

2129 


JSR 

SEEA9 

ED47 

B064 

2130 


BCS 

BEDAD 

ED49 

2085EE 

2131 


JSR 

SEE85 

ED4C 

24A3 

2132 


BIT 

ZA3 

ED4E 

100A 

2133 


BFL 

BED5A 

EDSO 

20A9EE 

2134 

BED50 

JSR 

SEEA9 

ED53 

90FB 

2135 


BCC 

BED50 

ED55 

20A9EE 

2136 

BED55 

JSR 

SEEA9 

ED58 

BOFB 

2137 


BCS 

BED55 

ED5A 

20A9EE 

2138 

BED5A 

JSR 

SEEA9 

ED5D 

90FB 

2139 


BCC 

BED5A 

ED5F 

208EEE 

2140 


JSR 

SEE8E 

ED62 

A908 

2141 


LDA 

$08 

ED64 

85A5 

2142 


STA 

2A5 

ED66 

AD00DD 

2143 

BED66 

LDA 

XDDOO 

ED69 

CDOODD 

2144 


CMP 

XDDOO 

ED6C 

D0F8 

2145 


BNE 

BED66 

ED6E 

0A 

2146 


ASL 

A 

ED6F 

903F 

2147 


BCC 

BEDBO 

ED71 

6695 

2148 


ROR 

Z95 

ED73 

B005 

2149 


BCS 

BED7A 

ED75 

20A0EE 

2150 


JSR 

SEEAO 

ED78 

DO 03 

2151 


BNE 

BED7D 

ED7A 

209 7EE 

2152 

BED7A 

JSR 

SEE97 

ED7D 

2085EE 

; ).■ : 

rii :t 

■jsj 

::m; 

ED80 

EA 

2154 


NOP 


ED81 

EA 

2155 


NOF 


ED82 

EA 

2156 


NOP 


EDB3 

EA 

2157 


NOP 


ED84 

AD00DD 

2158 


LDA 

XDDOO 

ED87 

29DF 

2159 


AND 

$DF 

ED89 

0910 

2160 


ORA 

$10 

ED88 

8D00DD 

2161 


STA 

XDDOO 

ED8E 

C6A5 

2162 


DEC 

ZA5 

ED90 

D0D4 

2163 


BNE 

BED66 

ED92 

A904 

2164 


LDA 

$04 

ED94 

8D07DC 

2165 


SIA 

XDC07 

ED97 

A919 

2166 


LDA 

$19 

ED99 

8D0FDC 

2167 


STA 

XDCOF 

ED9C 

AD0DDC 

2168 


LDA 

XDCOD 

ED9P 

AD0DDC 

2169 

BED9F 

LDA 

XDCOD 

EDA2 

2902 

2170 


AND 

$02 

EDA4 

DOGA 

2171 


BNE 

BEDBO 

EDA6 

20A9EE 

2172 


JSR 

SEEA9 

EDA9 

B0F4 

2173 


BCS 

BED9F 

EDAE 

58 

2174 


CL1 


EDAC 

60 

2175 


KTS 




2176 

9 



EDAE 

A980 

2177 

BEDAD 

LDA 

$80 

EDAF 

2C 

2178 


• BY 

$2C 

EDSO 

A903 

2179 

BEDB0 

LDA 

$03 

EDB2 

201CFE 

2180 

JEDB2 

JSR 

SFE1C 

EDB5 

58 

2181 


CLI 


EDB6 

18 

2182 


CLC 


EDB7 

904A 

2183 


BCC 

BEE03 


jdtsable IRQ 

;set serial data lov 

;teat data level 

;lf high. Indicate devlce not present 
;aet serial clock lov 

;i£ EOI flag la set 

;valt for data high 

;walt for data lov 

;valt for data high (end of EOI pulse) 
;set output clock high 

;lnltlallze bit couot 


;valt for PA2 to steady 
;lf data high not recelved, 
;lndlcate a timeout 
jfetcb bit to aead 
;lf bit la a 0, 

;send a 0 

;else.send a 1 
‘.jset serial clock lov 


;hold clock/data lines for 8 usec 


;set serial data line lov 
;and clock high 

;if 8 blts not sent 
jrepeat 

;set TBH1 to $04xx 

; set CE1 to force load, one shot and TB1 
;clear pending IRQ blts in ICRl 


;lf underflow on TB, indicate 

;repeat test untll data line Is lov 
;enable IRQ 


;set Device Not Present 
;sklp next Instruction 
;set Timeout blts (read and vrlte) 
;add blts In A to ST 


;set ATS lov and exit 
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2185 ;send 

Secondary 

Addreas (after L1STEN) on serial bus 



2186 ; 



EDB9 

8595 

2187 SEDB9 

STA 295 

;save serial deferred character 

EDBB 

2036ED 

2188 

JSR SED36 

;send on serial bus 

EDBE 

ADOODD 

2189 SEDBE 

LDA XDDOO 


EDC1 

29F7 

2190 

AND SF7 

;set ATN lov 

EDC3 

8DOODD 

2191 

STA XDDOO 


EDC6 

60 

2192 

RTS 




2193 ; 





2194 ;send 

Secondary 

Address (after TALK) on serial bus 



2195 ; 



EDC7 

8595 

2196 SEDC7 

STA Z95 

;save serial deferred character 

EDC9 

2036ED 

2197 

JSR SED36 

;send on serial bus 

EDCC 

78 

2198 SEDCC 

SEI 


EDCD 

20A0EE 

2199 

JSR SEEAO 

;set serial data high 

EDDO 

20BEED 

2200 

JSR SEDBE 

;8et ATS high 

EDD3 

2085EE 

2201 

JSR SEE85 

;set serial clock low 

EDD6 

20A9EE 

2202 BEDD6 

JSR SEEA9 

;read serial clock 

EDD9 

30FB 

2203 

BUI BEDD6 

;loop until serial clock goes low 

EDDB 

58 

2204 

CLI 

; e cab le IRQ 

EDDC 

60 

2205 

RTS 




2206 ; 





2207 ; output byte on 

serial bus 



2208 ; 



EDDD 

2494 

2209 JEDDD 

BIT 294 


EDDF 

3005 

2210 

BUI BEDE6 

;if no data buffered. 

EDE1 

38 

2211 

SEC 


EDE2 

6694 

2212 

KOR 294 

;set serial deferred flag 

EDE4 

DO 05 

2213 

BNE BEDEB 


EDE6 

48 

2214 BEDE6 

PHA 

;else save character on stack 

EDE7 

2040ED 

2215 

JSR SED40 

; send deferred character on serial ! 

EDEA 

68 

2216 

PLA 


EDEB 

8595 

2217 BEDEB 

STA 295 

;save new serial deferred character 

EDED 

18 

2218 

CLC 


EDEE 

60 

2219 

RTS 




2220 ; 





2221 ;send 

TALK on serial bus 



2222 ; 



EDEF 

78 

2223 SEDEF 

SEI 

;disable IRQ 

EDFO 

208EEE 

2224 

JSR SEE8E 

;set serial clock low 

EDF3 

ADOODD 

2225 

LDA XDDOO 


EDF6 

0908 

2226 

ORA $08 

;set serial ATN high 

EDF8 

8D00DD 

2227 

STA XDDOO 


EDFB 

A95F 

2228 

LDA S5F 

;set A to code for TALK 

EDFD 

2C 

2229 

-BY $2C 

;skip next instruction 



2230 ; 





2231 ;send 

UNL1STEN on serial bus 



2232 ; , 



EDFE 

A93F 

2233 SEDFE 

LDA S3F 

;set A to code for UNL1STEN 

E EOO 

201IED 

2234 

JSR SED11 

; send code io A or serial bus 

EE03 

20BEED 

2235 BEE03 

JSR SEDBE 

;set ATN lov 

EE06 

8A 

2236 SEE06 

TXA 


EE07 

A20A 

2237 

LDX $0A 


EE09 

CA 

2238 BEE09 

DEX 


EEOA 

DOFD 

2239 

BNE BEE09 

; pause 52 microseconds 

EEOC 

AA 

2240 

TAX 


EEOD 

2085EE 

2241 

JSR SEE85 

;set serial clock low 

EEIO 

4C97EE 

2242 

JMP SEE97 

;set serial data lov and return 
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2244 ;input byte on serial bus 

2245 ; 


EE13 

78 

2246 

JEE13 

SEI 


EE14 

A900 

2247 


EDA 

$00 

EE16 

85A5 

2248 


STA 

ZA5 

EE18 

2085EE 

2249 


JSR 

SEE85 

EE1B 

20A9EE 

2250 

BEE1B 

JSR 

SEEA9 

EE1E 

10FB 

2251 


BPL 

BEE1B 

EE20 

A901 

2252 

BEE20 

LDA 

$01 

EE22 

8D07DC 

2253 


STA 

XDC07 

EE25 

A919 

2254 


LDA 

$19 

EE27 

8DOFDC 

2255 


STA 

XDCOF 

EE2A 

2097EE 

2256 


JSR 

SEE97 

EE2D 

ADODDC 

2257 


LDA 

XDCOD 

EE30 

ADODDC 

2258 

BEE30 

LDA 

XDCOD 

EE33 

2902 

2259 


AND 

$02 

EE35 

D007 

2260 


&NE 

BEE3E 

EE37 

20A9EE 

2261 


JSR 

SEEA9 

EE3A 

30F4 

2262 


BMI 

BEE30 

EE3C 

1018 

2263 


BPL 

BEE56 

EE3E 

A5A5 

2264 

BEE3E 

LDA 

ZA5 

EE40 

F005 

2265 


BEQ 

BEE47 

EE42 

A902 

2266 


LDA 

$02 

EE44 

4CB2ED 

2267 


JMP 

JEDB2 



2268 

* 



EE47 

20AOEE 

2269 

BEE47 

JSR 

SEEAÓ 

EE4A 

2085EE 

2270 


JSR 

SEE85 

EE4D 

A940 

2271 


LDA 

$40 

EE4F 

201CFE 

2272 


JSR 

SFE1C 

EE52 

E6A5 

2273 


IHC 

ZA5 

EE54 

DOGA 

2274 


BUE 

BEE20 

EE56 

A908 

2275 

BEE56 

LDA 

$08 

EE58 

85A5 

2276 


STA 

ZA5 

EE5A 

ADOODD 

2277 

BEE5A 

LDA 

XDDOO 

EE5D 

CDOODD 

2278 


CKP 

XDDOO 

EE60 

D0F8 

2279 


BNE 

BEE5A 

EE62 

OA 

2280 


ASL 

A 

EE63 

10F5 

2281 


BPL 

BEESA- 

EE65 

66A4 

2282 


ROR 

ZA4 

EE67 

ADOODD 

2283 

BEE67 

LDA 

XDDOO 

EE6A 

CDOODD 

2284 


CMP 

XDDOO 

EE6D 

D0F8 

2285 


BNE 

BEE67 

EE6F 

OA 

2286 


ASL 

A 

EE70 

30F5 

2287 


BHI 

BEE67 

EE72 

C6A5 

2288 


DEC 

ZA5 

EE74 

D0E4 

2289 


BNE 

BEE5A 

EE76 

20A0EE 

2290 


JSR 

SEEAO 

EE79 

2490 

2291 


BIT 

Z90 

EE7B 

5003 

2292 


BVC 

BEE80 

EE7D 

2006EE 

2293 


JSR 

SEE06 

EE8Q 

A5A4 

2294 

BEE80 

LDA 

ZA4 

EE82 

58 

2295 


CLI 


EE83 

L8 

2296 


CLC 


EE84 

60 

2297 


RTS 



;dlsable IRQ 

;clear bit counc 
;set serial clock low 
;read serial clock 
;and loop untll high 

;prime TBH1 with $01xx 

;set CB1 to force load, one shot 4 TB1 

;eet serial data low 

;clear pending IRQ bits in 1CR1 


;if not underflow in TB 
;read serial clock and data 
;repeat if clock stili low 
;elge go recelve byte 

;when underflow on TB and not flrst bit, 
;set read timeout In ST 


;set serial data high 
;set serial clock low 

;set £01 In ST 
;add one to bit count 
;and repeat 

;set bit count to 8 


;wait untll PA2 le eteady 

jloop untll clock bit rlses 
;add data bit to byte belng read 


;valt untll PA2 ls steady 

;and for clock line to fall 

;loop untll 8 bits read 
;set serial data high 

;lf EOI ls high 

;pause 52 usec, set clock and data low 
;restore byte read 
;enable IRQ 
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2299 [set serial clock line low 

2300 ; 

EE85 ADOODD 2301 SEE85 LDA XDDOO 
EE88 29EF 2302 AND $EF 

EE8A 8D00DD 2303 STA XDDOO 

EE8D 60 2304 RTS 

2305 j 

2306 ;set serial clock line high 

2307 ; 

EE8E ADOODD 2308 SEE8E LDA XDDOO 
EE91 0910 2309 ORA $10 

EE93 8D00DD 2310 STA XDDOO 

EE96 60 2311 RTS 

2312 ; 

2313 ;set serial data line low 

2314 ; 

EE97 ADOODD 2315 SEE97 LDA XDDOO 
EE9A 29DF 2316 AND $DF 

EE9C 8D00DD 2317 STA XDDOO 

EE9F 60 2318 RTS 

2319 ; 

2320 [set serial data line high 

2321 ; 

EEAO ADOODD 2322 SEEAO LDA XDDOO 
EEA3 0920 2323 ORA $20 

EEA5 8D00DD 2324 STA XDDOO 

EEA8 60 2325 RTS 

2326 ; 

2327 ;wait for FA2 to steady 

2328 ;exlt with data bit in C 

2329 ;aod clock bit in N 

2330 ; 

EEA9 ADOODD 2331 SEEA9 LDA XDDOO 
EEAC CDOODD 2332 CMP XDDOO 

EEAF D0F8 2333 BNE SEEA9 ;vait until PA2 is steady 

EEE1 OA 2334 ASL A [shift data into C and clock into N 

EEB2 60 2335 RTS 

2336 ; 

2337 ;delay 1 nillisecond 

2338 ; 

EEB3 8a 2339 SEEB3 TXA [save A 

EEB4 A2B8 2340 LDX $B8 [initialize delay counter 

EEB6 CA 2341 BEEB6 DEX 

EEB7 DOFD 2342 BNE BEEB6 [perfora delay of 1 aillisecond 

EEB9 AA 2343 TAX ;r est ore A 

EEBA 60 2344 RTS 
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2346 ;set next bit to transmit on RS-232 bus 

2347 ; 


EEBB 

A5B4 

2348 SEEBB 

EDA 

ZB4 

EEBD 

F047 

2349 

BEQ 

BEF06 

EEBF 

303F 

2350 

BM1 

BEFOO 

EEC1 

46B6 

2351 

LSR 

ZB6 

EEC3 

A200 

2352 

LDX 

$00 

EEC5 

9001 

2353 

BCC 

BEEC8 

EEC7 

CA 

2354 

DEX 


EEC8 

8A 

2355 BEEC8 

TXA 


EEC9 

45BD 

2356 

EOR 

ZBD 

EECB 

85BD 

2357 

STA 

ZBD 

EECD 

C6B4 

2358 

DEC 

ZB4 

EECF 

F006 

2359 

BEQ 

BEED7 

EED1 

8A 

2360 BEED1 

TXA 


EED2 

2904 

2361 

AND 

$04 

EED4 

85B5 

2362 

STA 

ZB5 

EED6 

60 

2363 

RTS 




2364 ; 



EED7 

A920 

2365 BEED7 

EDA 

$20 

EED9 

2C9402 

2366 

BIT 

X0294 

EEDC 

F014 

2367 

BEQ 

BEEF2 

EEDE 

301C 

2368 

BMI 

BEEFC 

EEEO 

7014 

2369 

BVS 

BEEF6 

EEE2 

A5BD 

2370 

EDA 

ZBD 

EEE4 

D001 

2371 

BNE 

BEEE7 

EEE6 

CA 

2372 BEEE5 

DEX 


EEE7 

C6B4 

2373 BEEE7 

DEC 

ZB4 

EEE9 

AD9302 

2374 

LDA 

X0293 

EEEC 

10E3 

2375 

BFE 

BEED1 

EEEE 

C6B4 

2376 

DEC 

ZB4 

EEFO 

D0DF 

2377 

BNE 

BEED1 

EEF2 

E6B4 

2378 BEEF2 

INC 

ZB4 

EEF4 

D0F0 

2379 

BNE 

BEEE6 

EEF6 

A5BD 

2380 BEEF6 

EDA 

ZBD 

EEF8 

FOED 

2381 

BEQ 

BEEE7 

EEFA DOEA 

2382 

BNE 

BEEE6 

EEFC 

70E9 

2383 BEEFC 

BVS 

BEEE7 

EEFE 

50E6 

2384 

BVC 

BEEE6 

EF00 

E6B4 

2385 BEF00 

INC 

ZB4 

EF02 

A2FF 

2386 

LDX 

$FF 

EF04 DOCB 

2387 

BNE 

BEED1 

EF06 AD9402 

2388 BEF06 

LDA 

X0294 

EF09 

4À 

2389 

ESR 

A 

EFOA 

9007 

2390 

BCC 

BEF13 

EFOC 

2C01DD 

2391 

BIT 

XDD01 

EFOF 

I01D 

2392 

BPE 

BEF2E 

EFll 

501E 

2393 

BVC 

BEF31 

EF13 

A900 

2394 BEF13 

LDA 

$00 

EF15 

85BD 

2395 

STA 

ZBD 

EF17 

85B5 

2396 

STA 

ZB5 

EF19 A19802 

2397 

LDX 

X0298 

EF1C 

86B4 

2398 

STX 

ZB4 

EFIE 

AC9D02 

2399 

EDI 

X029D 

EF21 

CC9E02 

2400 

cry 

X029E 

EF24 

F013 

2401 

BEQ 

BEF39 

EF26 

B1F9 

2402 

EDA 

(ZF9),Y 

EF28 

85B6 

2403 

STA 

ZB6 

EF2A 

EE9D02 

2404 

INC 

X029D 

EF2D 

60 

2405 

RTS 



; check pending bit count 

;if byte finished, ©end stop bìt(s) 

;if not stop bit, 

;shift next bit CO send iato C 

;X-00/FF for 0/1 to send 


jcompute parity of word being 6ent 

;decrement bit count 

;if word finlshed, handle parity 


;set next bit to send 


;check RS-232 Command Register 
;£or parity option 
;no parity 

;transolt mark or space parity 
;transmit even parity 
;make parity odd 


idecremeat bit count 

;cheek RS-232 Control Register 

;and branch if only one stop bit needed 

;else decrement bit count 

;and send first of 2 stop bits 

;lncremenc bit count 

;use computed parity 
;to set X for even parity 

;trausmlt space parity 
;transmit mark parity 
;btnp bit count 

;go send a stop bit 
;check RS-232 Command Register 

;and sklp lf in 3-llne mode 

;crror lf DSR tignai missing 
;or CTS signal missing 

;clear parity 
;clear next bit to send 
;move number of bits to send 
;to bit count 

;if RS-232 transmit buffer is not empty 


;move next byte to send 
;to character buffer 

;bump RS-232 transmit buffer output per 


172 




2407 

jhandle RS-232 errors 


2408 

; 


EF2E A940 

2409 

BEF2E LDA $40 

;add DSR slgnal olsslng error bit 

EF30 2C 

2410 

• BY $2C 

;skip next lnstructlon 

EF31 A910 

2411 

BEF31 LDA $10 

;add CTS slgnal olsslng error bit 

EF33 0D9702 

2412 

ORA X0297 

;to RS-232 Status Reglster 

EF36 8D9702 

2413 

STA X0297 

• 

EF39 A901 

2414 

BEF39 LDA $01 

;clear TA2 IRQ mask 

EF3B 8D0DDD 

2415 

JEF3B STA XDDOD 

;set/clear ICR2 flags depending on A 

EF3E 4DA102 

2416 

EOR X02A1 


EF41 0980 

2417 

ORA $80 


EF43 8DA102 

2418 

STA X02A1 

;eet 1CR2 actlvity reglster 

EF46 8D0DDD 2419 

STA XDDOD 

;and 1CR2 

EF49 60 

2420 

RTS 



2421 

> 



2422 

;check control reglster to set word length 


2423 

» 


EF4A A209 

2424 

SEF4A LDX $09 

;start wlth a length of 9 

EF4C AS20 

2425 

LDA $20 


EF4E 2C9302 

2426 

BIT X0293 

;check RS-232 Control Reglster 

EF51 F001 

2427 

BEQ BEF54 

;and branch if word length ls 6 or 8 

EF53 CA 

2428 

«EX 

;else set X to 8 

EF54 5002 

2429 

BEF54 BVC BEF58 

;lf word length ls 7 or 8, exit 

EF56 CA 

2430 

DEX 


EF57 CA 

2431 

DEX 


EF58 60 

2432 

BEF58 RTS 

;exlt wlth length in X 


2433 

f 



2434 

;add bit Input on RS-232 bus to word being Input 


2435 

* 


EF59 A6A9 

2436 

JEF59 LDX ZA9 

; check recelver start bit flag 

EF5B D033 

2437 

BUE BEF90 

;if a bit ls ready. 

EF5D C6A8 

2438 

DEC ZA8 

;decrement input bit connt 

EF5F F036 

2439 

BEQ BEF97 

;lf word ls not conplete. 

EF61 300D 

2440 

BM BEF70 


EF63 A5A7 

2441 

LDA ZA7 

;use recelver Input bit 

EF65 45AB 

2442 

EOR ZAB 

;to calcolate parlty 

EF67 85AB 

2443 

STA ZAB 


EF69 46A7 

2444 

LSR ZA7 

jshift bit recelved 

EF6B 66AA 

2445 

ROR ZAA 

;lnto byte being read 

EF6D 60 

2446 

BEF6D RTS 



2447 




2448 

;handle end of word 

for RS-232 input 


2449 

• 

» 


EF6E C6A8 

2450 

BEF6E DEC ZA£ 

;decreoent input bit counc 

EF70 A5A7 

2451 

BEF70 LDA ZA? 

;check recelver input bit 

EF72 F067 

2452 

BEQ BEFDB. 

;lf Bomethlne read 

EF74 AD9302 

2453 

LDA XQ293 

;use RS-232 Control Reglster to 

EF77 OA 

2454 

ASL A 

;shlft stop bit count flag lnto C 

EF78 A901 

2455 

LDA $01 


EF7A 65A8 

2456 

ADC ZAB 

;add posslble second stop bit 

EF7C DOEF 

2457 

BUE BEF6D 

;to input bit count «od exit 


173 



2459 jenable byte reception 




2460 

J 




EF7E 

A990 

2461 

BEF7E 

LDA 

$90 


EF80 

8DODDD 

2462 


STA 

XDDOD 

;set Flag bit mask in ICR2 

EF83 

ODAl02 

2463 


ORA 

X02A1 

;plus ICR2 activity regiater 

EF86 

8DA102 

2464 


STA X02A1 

;to forai new ICR2 activity reglster 

EF89 

85A9 

2465 


STA ZA9 

;and receiver start bit flag 

EF6B 

A902 

2466 


LDA $02 


EF8D 

4C3BEF 

2467 


JMP 

JEF3B 

;set TB2 mask in 1CR2 and exit 



2468 

9 






2469 

ireceiver 

start bit 

test 



2470 

> 




EF90 

A5A7 

2471 

BEF90 

LDA ZA7 

;test receiver input bit 

EF92 

DOEA 

2472 


BNE 

BEF7E 

;if start read, 

EF94 

85A9 

2473 


STA 

ZA9 

idear start bit flag 

EF96 

60 

2474 


RTS 





2475 

» 






2476 

:put recelved data 

loto RS-232 receive buffer 



2477 

» 




EF97 

AC9B02 

2478 

BEF97 

LDY 

X029B 

;if RS-232 receive buffer Input pointer 

EF9A 

C8 

2479 


INY 



EF9B 

CC9C02 

2480 


cp? 

X029C 

;» RS-232 receive buffer output pointer 

EF9E 

F02A 

2481 


BEQ 

BEFCA 

;then receive buffer overrun error 

EFAO 

809802 

2482 


STY 

X029B 

;bimp RS-232 receive buffer input ptr 

EFA3 

88 

2483 


DEY 



EFA4 

A5AA 

2484 


LDA 

ZAA 

;fetch byte recelved so far in A 

EFA6 

AE9802 

2485 


LDX 

X0298 

;and nuaber of blts to receive in X 

EFA9 

E009 

2486 

BEFA9 

CFX 

$09 


EFAB 

F004 

2487 


BEQ 

BEFB1 


EFAD 

4A 

2488 


LSB 

A 

;rlght Justify input byte 

EFAE 

E8 

2489 


IHX 



EFAF 

DOF8 

2490 


BNE 

BEFA9 


EFB1 

91F7 

2491 

BEFBt 

STA 

(ZF7),Y 

iatore recelved byte in receive buffer 

EFB3 

A920 

2492 


LDA 

$20 

;check RS-232 Command Reglster 

EFB5 

2C9402 

2493 


BIT 

X0294 

;for parie; optlons 

EFB8 

FOB4 

2494 


BEQ 

BEF6E 

;no parlty 

EFBA 

30BI 

2495 


BHX 

BEF6D 

iparlty check dlsabled 

EFBC 

A5A7 

2496 


LDA 

ZA7 

;fetch receiver parlty bit 

EFBE 

4 5 AB 

2497 


EOR 

ZAB 

;eheck agalnat calculated parlty 

EFCO 

F003 

2498 


BEQ 

BEFC5 

;odd parlty recelved 

EFC2 

70A9 

2499 


BVS 

BEF6D 

;ezlt lf even parlty required 

EFC* 

2C 

2500 


-BY 

$2C 

;skip next instructlon 

EFC5 

50A6 

2501 

BEFC5 

BVC 

BEF6D 

;exlt if odd parlty required 

EFC7 

A 901 

2502 


LDA 

$01 

;elae indicate Parlty Error 

EFC9 

2C 

2503 


.BY 

$2C 

;akip next instructlon 

EFCA 

A904 

2504 

BEFCA 

LDA 

$04 

;indicate Receiver Buffer Overrun error 

EFCC 

2C 

2505 


• BY 

$2C 

;sklp next instructlon 

EFCD 

A980 

2506 

BEFCD 

LDA 

$80 

iindleate Break Detected error 

EFCF 

2-.J 

2507 


-BY 

$2C 

;nklp next instructlon 

EFDO 

A90Z 

2508 

BEFDO 

LDA 

$02 

iFraalog error 

EFD2 

OD9702 

2 509 


ORA 

X0297 

iplus originai RS-232 Status Regleter 

EFD5 

8D9702 

2510 


STA 

X0297 

;nakes new RS-232 Status Reglster 

EFD8 

4C7EEF 

2511 


JMP 

BEF7E 

;enable byte reception and exit 



2512 

; 




EFDB 

A5AA 

2513 

BEFDB 

LDA 

ZAA 

;lf byte recelved so far is non-zero 

EFDD 

D0F1 

2514 


BNE 

BEFDO 

iindleate franlng error 

EFDF 

FOEC 

2515 


BEQ 

BEFCD 

;or break detected error 


17 * 




2517 joutput on RS-232 device 
251$ ; 


EFE1 

859A 

2519 

JEFE1 

SIA 

Z9A 

;sét output device 

EFE3 

AD9402 

2520 


EDA 

X0294 

; check RS-232 Comrasnd Register 

EFE6 

4a 

2521 


LSR 

A 

;for 3-line or X-llne a ccf 

EFE7 

9029 

2522 


BCC 

BF012 

;and skip if 3-line 

EFES 

A902 

2523 


LDA 

$02 

. 

EFEB 

2C01DD 2524 


BIT 

XDD01 


EFEE 

1010 

2525 


BPL 

BFOOD 

;indicate error if DSR vignai nisslng 

EFFO 

D020 

2526 


BNE 

BF012 

;exit if RTS preseot 

EFF2 

AD Al 02 

2527 

BEFF2 

LDA 

X02A1 

;check ICR2 activity register 

EFF5 

2902 

2528 


AND 

$02 


EFF7 

D0F9 

2529 


BNE 

BEFF2 

;and loop until byte reeeived 

EFF9 

2C01DD 2530 BEFF9 

BIT 

XDD01 

EFFC 

70FB 

2531 


BVS 

BEFF9 

;vait for CTS sigaal 

EFFE 

AD01DD 2532 


LDA 

XDD01 


F001 

0902 

2533 


ORA 

$02 


F003 

81 IOH 

: c ;: 


STA 

XDD01 

;set RTS signal 

F006 

2C01DD 

2535 

BF006 

BIT 

XDD01 


F009 

7007 

2536 


BVS 

BF012 

;exit if CTS ls high 

FOOB 

30F9 

2537 


BUI 

BF006 

;loop if DSR ia high 

FOOD A940 

2538 

BFOOD 

LDA 

$40 

;set DSR Sigaal Missing Error 

FOOF 

8D9702 

2539 


STA 

X0297 

;in RS-232 Status Register 

F012 

18 

25A0 

BF012 

CLC 



F013 

60 

25A1 


RTS 





2542 

* 






2543 

;buffet character 

to output ou RS-232 



2544 

» 




FOIA 

2028F0 

2545 

BF014 

JSR 

SF028 

;schedule TA2 if not transnitting 

FOX 7 

AC9E02 

2546 

SF017 

LDY 

X029E 


FOIA 

C8 

2547 


INY 


;if no room in thè RS-232 buffer 

F01B 

CC9D02 

2548 


CPY 

X029D 


FOIE FOFA 

2549 


BEQ 

BP014 

;ualt until there is roon 

F020 

8C9E02 

2550 


STY 

X029E 

;buap RS-232 transmit buffer output ptr 

F023 

88 

2551 


DEY 



F024 A59E 

2552 


LDA 

Z9E 

;move, buffered character 

F026 

91F9 

2553 


STA 

(ZF9),Y 

;to transnsit buffer 

F028 

AD Al 02 

2554 

SF028 

LDA 

X02AI 

;check ICR2 activity register 

F02B 

AA 

2555 


LSR 

A 


F02C B01E 

2556 


BCS 

BF04C 

;lf not transmitting. 

F02E 

A910 

2557 


LDA 

$10 


F030 8D0EDD 2558 


STA 

XDDOE 

; force load into CRA2 

F033 AD9902 2559 


LDA 

X0299 

;aove baud rate full bit tlme 

F036' 8DOADD 2560 


SIA 

XDD04 

;into TAL2 

F039 AD9A02 

2561 


LDA 

X029A 


F03C 

8D05DD 2562 


STA 

XDD05 

;and TAH2 

F03F 

A981 

2563 


LDA 

$61 


F041 

203BEF 

2564 


JSR 

JEF3B 

;set TA2 mask bit io ICR2 

F044 

2006EF 

2565 


JSR 

BEF06 

;perforn lnitiallzation for oev byte 

F047 

A911 

2566 


LDA 

$11 

;set force load and start TA2 in CRA2 

F049 

8D0EDD 

2567 


STA 

XDDOE 


F04C 

60 

2568 

BF04C 

RTS 
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2570 ; initialite RS-232 Input 

2571 ; 


F04D 

8599 

2572 

JF04D 

STA 

299 

F04F 

AD9402 

2573 


LDA 

X0294 

F052 

4A 

2574 


LSR 

A 

F053 

9028 

2575 


BCC 

BF07D 

F055 

2908 

2576 


AND 

$08 

F057 

F024 

2577 


BEQ 

BF07D 

F059 

A902 

2578 


LDA 

$02 

F05B 

2C01DD 

2579 


BIT 

XDDOl 

F05E 

10 AD 

2580 


BPL 

BFOOD 

F060 

F022 

2581 


BEQ 

BF084 

F062 

ADA102 

2582 

BF062 

LDA 

X02A1 

F065 

4A 

2583 


LSR 

A 

F066 

BOFA 

2584 


BCS 

BF062 

F068 

AD01DD 

2585 


LDA 

XDDOl 

F06B 

29FD 

2586 


AND 

$FD 

F06D 

8D01DD 

2587 


STA 

XDDOl 

F070 

AD01DD 

2588 

BF070 

LDA 

XDDOl 

F073 

2904 

2589 


AND 

$04 

F075 

F0F9 

2590 


BEQ 

BF070 

F077 

A990 

2591 

BF077 

LDA 

$90 

F079 

18 

2592 


CLC 


F07A 

4C3BEF 

2593 


JHP 

JEF3B 



2594 

S 



F07D 

ADA102 

2595 

BF07D 

LDA 

X02A1 

F080 

2912 

2596 


AND 

$12 

F082 

F0F3 

2597 


BEQ 

BF077 

F084 

18 

2598 

BF084 

CLC 


F085 

60 

2599 


RTS 




2600 

1 





2601 

;get next 

character 



2602 

» 



F086 

AD9702 

2603 

SF086 

LDA 

X0297 

F089 

AC9C02 

2604 


LDT 

X029C 

F08C 

CC9B02 

2605 


CPY 

X029B 

F08F 

F00B 

2606 


BEQ 

BF09C 

F091 

29F7 

2607 


AND 

$F7 

F093 

8D9702 

2608 


STA 

X0297 

F096 

B1F7 

2609 


LDA 

(ZF7),Y 

F098 

EE9C02 

2610 


INC 

X029C 

F09B 

60 

2611 


RTS 




2612 

» 



F09C 

0908 

2613 

BF09C 

ORA 

$08 

F09E 

8D9702 

2614 


STA 

X0297 

F0A1 

A900 

2615 


LDA 

$00 

PO A3 

60 

2616 


RTS 



;set Input devlce 

{check RS-232 Coomand Reglster 

;for 3-line or X-line mode 

;and skip if 3-line 

{check for full/half duplex mode 

;and skip li full duplex 


;error if DSR signal not present 
; check 1CR2 activity reglster 
;if not transmitting, 

;clear RTS line 


;wait for DSR 


;set Flag bit maak in ICR2 and return 

;fetch 1CR2 activity reglster 

;if receiving/walting for receiver edge, 

;aet Flag mask 


from RS-232 input buffer 

;A ■ contenta of RS-232 Status Reglster 

;if receiver buffer is empty, 

{set flag in RS-232 status reglster 
;elBe desr Receiver Buffer Empty flag 
;ln RS-232 Status Reglster 
;fetch character from buffer 
;bump RS-232 recelve buffer output ptr 


{indicate Receiver Buffer Empty 

;in RS-232 Status Reglster 

;and return with a nuli character 
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2618 jprotect serial/cassette routine fron RS-232 SMI's 

2619 ; 

F0A4 48 2620 SF0A4 PHA ;save A 

F0A5 ADA102 2621 LDA X02A1 ;if no activity in ICR2 

F0A8 FOll 2622 BEQ BPOBB ;e*it 

FOAA AD Al 02 2623 BFOAA LDA X02A1 

FOAD 2903 2624 AND $03 

FOAF DOF9 2625 BNE BFOAA ;else watt until noe sending/receiving 

F0B1 A910 2626 LDA $10 

F0B3 8DODDD 2627 STA XDDOD ;clear Flag bit mask in 1CR2 

FOB6 A900 2628 LDA $00 

F0B8 8DA102 2629 STA X02A1 ;clear ICR2 activity reglster 

FOBB 68 2630 BFOBB PLA gestore A 

FOBC 60 2631 RTS 

2632 ; 

2633 ;Kernel I/O messages 

2634 ; 

FOBD OD492F 2635 TFOBD . BY $0D,'I,'/,'0,' ,'E,'R,'R,'0,'R,' ,'#+$80 
F0C9 0D5345 2636 TF0C9 .BY $OD,'S,'E,'A,'R,'C,'H,'I,'N,'G,' +$80 
F0D4 464F52 2637 TF0D4 .BY 'F.'O.'R,' +$80 

FOD8 DD5052 2638 TF0D8 .BY $0D,'P,'R,'E,'S,'S,' ,'P,'L,'A,'Y,' 

F0E7 544150 2639 '.BY '•E<'A,'P,'E+$80 

FOEB 505245 2640 TFOEB -BY 'P,'R,'E,'S,'S,' ,'R,'E,'C,'0,'R,'D,' ,'i,' 

FOFA 504C41 2641 .BY 'P,'L,'A,'Y,' ,'0,'N,' ,'T,'A,'P,'£+$80 

FI06 0D4C4F 2642 TF106 .BY $0D,'L,'O,'A,'D,'I,'N,'G+$8O 

F1QE 0D5341 2643 TF10E -BY $0D,'S,'A,'V,'X,'N,'G,' +$80 

F116 0D5645 2644 TF116 -BY $0D,'V,'E,'R,'I,'F,'Y,'I,'N,'&+$80 

F120 0D464F 2645 TF120 .BY $0D,'F,'0,'U,'N,'D,' +$80 

FI27 OD4F4B 2646 TF127 .BY $0D,'O,'K,$8D 

2647 ; 

2648 ;print kernal message indexed by Y 

2649 ; 

F12B 249D 2650 JF12B BIT Z9D ;exit if not In direct mode 

F12D 100D 2651 BPL BF13C 

F12F B98DF0 2652 BF12F LDA TFOBD,Y ;fetch a character fron nessage table 

F132 08 2653 PHP 

F133 297F 2654 AND $7F ; strip bit 7 

F135 20B2FF 2655 JSR SFFD2 ;print character 

F138 C8 2656 INY ;advance index 

F139 28 2657 PLP ;if last char did not contalo bit 7, 

E13A 10F3 2658 BPL BF12F ;repeat 

F13C 18 2659 BF13C CLC 

P13D 60 2660 RTS 

2661 ; 

2662 ;get a character 

2663 ; 

F13E A599 2664 WF13E LDA Z99 ;if input device 

FI40 D008 2665 BNE BF14A ;ls tbe keyboard 

F142 A5C6 2666 LDA ZC6 ;and keyboard buffer 

F144 FOOF 2667 BEQ BF155 ;ia not empty 

F146 78 2668 SEI ;disable IRQ , 

F147 4CB4E5 2669 JMP SE5B4 ;then fetch char from keyboard queue 

2670 ; 

F14A C902 2671 BF14A CMP $02 ;if input device is RS-232 

F14C D018 2672 BNE BF166 

F14E 8497 2673 SF14E STY Z97 ;save Y 

FI50 2086F0 2674 JSR SF086 ;get a char fron RS-232 input buffer 

FI53 A497 2675 LBY Z97 gestore Y 

F155 18 2676 BF15S CLC 

FI56 60 2677 RTS 
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2679 ;ìnput a character 




2680 

» 



F157 

A599 

2681 

WF157 EDA 

Z99 

F159 

DOGE 

2682 


BUE 

BF166 

F15B 

A5D3 

2683 


EOA 

ZD3 

F1SD 

85CA 

2684 


STA 

ZCA 

F15F 

A5D6 

2685 


EDA 

ZD6 

F161 

85C9 

2686 


STA 

ZC9 

FI 63 

4C32E6 

2687 


JMP 

JE632 



2688 

» 



F166 

C903 

2689 

BF166 

CMP 

$03 

F168 

D009 

2690 


BNE 

BF173 

F16A 

83D0 

2691 


STA 

ZDO 

F16C 

A5D5 

2692 


LDA 

ZD5 

F16E 

85C8 

2693 


STA 

ZC8 

FI 70 

4C32E6 

2694 


JMP 

JE632 



2695 

> 



F173 

B038 

2696 

BF173 

BCS 

BF1AD 

F175 

C902 

2697 


CMP 

$02 

FI 77 

F03F 

2698 


BEQ 

BF1B8 

F179 

8697 

2699 


STX 

Z97 

F17B 

2099F1 

2700 


JSK 

SF199 

F17E 

B016 

2701 


BCS 

BF196 

F180 

48 

2702 


PHA 


F181 

2099F1 

2703 


JSB 

SF199 

F184 

B00D 

2704 


BCS 

BF193 

F186 

0003 

2705 


BUE 

BF18D 

F188 

A940 

2706 


LDA 

$40 

F18A 

201CFE 2707 


JSR 

SFE1C 

F18D 

C6A6 

2708 BF18D DEC 

ZA6 

F18F 

A697 

2709 


LDX 

Z97 

F191 

68 

2710 


PLA 


F192 

60 

2711 


rrs 




2712 

» 



F193 

AA 

2713 BF193 TAX 


F194 

68 

2714 


PLA 


F195 

8A 

2715 


TXA 


F196 

A697 

2716 BF196 LDX 

Z97 

F198 

60 

2717 


RTS 



;if thè Input devlce 
;ia thè keyboard 

move posltlon of cursor on line 
;to Input curaor poation on line 
move curaor line number 
;to input cursor line number 
;and go input from thè keyboard 

;if input devlce is thè screen 

;set screen/keyboard flag to screen 

;move screen line length 

;to end of line pointer 

land go input fron thè screen 

;lf device > 3 (serial bus), handle 

if Input devlce is RS-232, handle 

input device is tape, save X 

fetch a byte fron tape buffer 

exit upon error 

save byte on atack 

look ahead in tape buffer 

and exit upon error 

if at end of file, 

set end of file bit 

in ST 

ad just tape buffer ptr back to nomai 
rettore X 
reatore byte read 


;set stack stralght 
;testore X 

;error exit wlth C set 


178 






2719 

;read 

a byte froo 

thè cassette buffer' 



2720 

t 




F199 

200DF8 

2721 

SF199 

JSR 

SF80D 

;add l to buffer pointer 

F19C 

DOOB 

2722 


BUE 

BF1A9 

;if end of buffer. 

F19E 

2041F8 

2723 


JSE 

SF841 

;read next block 

FlAl 

BOI 1 

2724 


BCS 

BF1B4 

;and exit upon error 

F1A3 

A9ÒO 

2725 


LDA 

$00 

. 

F1A5 

85A6 

2726 


STA 

ZA6 

;reset tape buffer pointer 

F1A7 

FOFO 

2727 


BEQ 

SF199 

;and loop back 

F1A9 

B1B2 

2728 

BF1A9 

LDA 

(ZB2),Y 

;fetch byte from tape buffer 

F1AB 

18 

2729 


CLC 


;indicate no error 

F1AC 

60 

2730 


RTS 


;and return 



2731 

» 


' 


FÌAD 

A590 

2732 

BF1AD 

LDA 

Z90 

;if ST lndlcates Device Not Fresent 

FlAF 

F004 

2733 


BEQ 

BF1B5 


F1B1 

A90D 

2734 

BF1B1 

LDA 

$0D 

; force a return 

FIB3 

18 

2735 

BF1B3 

CLC 



F1B4 

60 

2736 

BF1B4 

RTS 





2737 

* 






2738 

;read 

a byte fro» 

thè serial bus 



2739 

5 




F1B5 

4C13EE 2740 

BF1B5 

JMP JEE13 

;input byte fron serial bus and return 



2741 

1 





2742 

;read 

a byte froo 

thè RS-232 bus 



2743 

» 




F1B8 

204EF1 

2744 

BF1B8 JSR 

SF14E 

;get a char fron RS-232 input buffer 

F1BB 

B0F7 

2745 


BCS 

BF1B4 

;exit upon error 

F1BD 

C900 

2746 


CMP 

$00 


FIBF 

D0F2 

.2747 


BKE 

BF1B3 

;exìt lf receive buffer not empty 

F1C1 

AD9702 

2748 


LDA 

X0297 

;if RS-232 Status Register 

FICA 

2960 

2749 


AND 

$60 

;lndlcates DSR Hisslng, 

F1C6 

D0E9 

2750 


BNE 

BF1B1 

; force a Return 

F1C8 

FOEE 

2751 


BEQ 

BF1B8 

;else repeat 
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2753 

;output a 

character 



2754 

; 



FICA 

48 

2755 

WF1CA 

FUA 


FlCB 

A59A 

2756 


LDA 

Z9A 

FI CD 

C903 

2757 


CMP 

$03 

F1CF 

D004 

2758 


BNE 

BF1D5 

FIDI 

68 

2759 


PLA 


F1D2 

4C16E7 

2760 


JMP 

SE716 



2761 

I 



F1D5 

9004 

2762 

BF1D5 

BCC 

BF1DB 

F1D7 

68 

2763 


PLA 


F1D8 

4CDDED 

2764 


JMP 

JEDDD 



2765 

j 



F1DB 

4A 

2766 

BF1DB 

LSR 

A 

FIDC 

68 

2767 


PLA 


F1DD 

859E 

2768 

SF1DD 

STA 

Z9E 

F1DF 

8A 

2769 


TXA 


F1E0 

48 

2770 


PHA 


F1E1 

98 

2771 


TYA 


F1E2 

48 

2772 


PHA 


F1E3 

9023 

2773 


BCC 

BF208 

F1E5 

200DF8 

2774 


JSR 

SFS0D 

FIE8 

D00E 

2775 


BNE 

BF1F8 

F1EA 

2064F8 

2776 


JSR 

SF864 

F1ED 

B00E 

2777 


BCS 

BF1FD 

F1EF 

A902 

2778 


LDA 

$02 

F1FI 

AOOO 

2779 


LDY 

$00 

F1F3 

91B2 

2780 


STA 

(ZB2),Y 

F1F5 

C8 

2781 


INY 


F1F6 

84A6 

2782 


STY 

ZA6 

F1F8 

A59E 

2783 

BF1F8 

LDA 

Z9E 

FIFA 

91B2 

2784 


STA 

(ZB2),Y 

F1FC 

18 

2785 

JFIFC 

CLC 


F1FD 

68 

2786 

BF1FD 

PLA 


FIFE 

AB 

2787 


TAY 


F1FF 

68 

2788 


PLA 


F200 

AA 

2789 


TAX 


F201 

A59E 

2790 


LDA 

Z9E 

F203 

9002 

2791 


BCC 

BF207 

F205 

A900 

2792 


LDA 

$00 

F207 

60 

2793 

BF207 

RTS 




2794 

> 



F208 

2017F0 

2795 

BF208 

JSR 

SF017 

F20B 

4CFCF1 

2796 


JMP 

JFIFC 


;save character on stack 
;if output device 
;is thè screen 

;restore character 
;end output to screen 

;i£ output device > 3 

;restore character 

;and output to serial bus 

;set C to 1 for cassette 
;move character to output 
;to temporary Storage 


;save XY on stack 

;if output device Ì6 cassette 

;add one to tape buffer'index 

;if buffer is full, (192 bytes) 

;write block to cassette 

;and exit upon error 

;use use Data code 

;in beginning of next tape buffer 

;initlalize tape buffer pointer 
;oove character to output 
;lnto thè tape buffer 
;clear error flag 


;restore XY 

;restore character just output 
;exlt if uo errore 
;else return with A*=Q 


;out a character to RS-232 channel 
; and exit 


180 



2798 ;set input devlce 




2799 

» 




F20E 

200FF3 

2600 WF20E 

JSR 

SF30F 

;check X against logicai file cable 

F211 

F003 

2801 


BEQ 

BF216 

;if not matched. 

F213 

4C01F7 

2802 


JMP 

JF701 

;indicate File Not Open 



2803 

; 




F216 

201FF3 

2804 

BF216 

JSR 

SF31F 

;aet logicai file, device and aec. adr 

F219 

A5BA 

2805 


LDA 

ZBA 

ili device is keyboard. 

F21B 

F016 

2806 


BEQ 

BF233 

;exit 

F21D 

C903 

2807 


CMP 

$03 

;lf devlce la screeu. 

F21F 

F012 

2808 


BEQ 

BF233 

;exit 

F221 

B014 

2809 


BCS 

BF237 

;handle lf device la serial bus (> 3) 

F223 

C902 

2810 


CMP 

$02 


F225 

D003 

2811 


BNE 

EF22A 

;if devlce is RS-232, 

F227 

4C4DF0 

2812 


JMP 

JF04D 

;iniclalize RS-232 input 



2813 

; 




F22A 

A6B9 

2814 

BF22A 

LDX 

ZB9 

;if input device is tape and sec. adr 

F22C 

E060 

2815 


CPX 

$60 

;indicates tbat this is an input file 

F22E 

F003 

2816 


BEQ 

BF233 

;8reat. 

F23Q 

4COAF7 

2817 


JMP 

JF70A 

;else indicate Not Input File Error 



2818 

! 



F233 

8599 

2819 

BF233 

STA 

Z99 

; set input device 

F235 

18 

2820 


CLC 


jclear error flag 

F236 

60 

2821 


RTS 





2822 

> 






2823 

;set serial bus input devlce 



2824 

1 




F237 

AA 

2825 BF237 

TAX 



F238 

2009ED 

2826 


JSR 

SED09 

;send TALK on serial bus 

F23B 

A5B9 

2827 


LDA 

ZB9 

;lf secondar; address speclfied. 

F23D 

1006 

2828 


BPL 

BF245 

;send it 

F23F 

20CCED 

2829 


JSR 

SEDCC 

;else send dtmmy aecondary address 

F242 

4C48F2 

2830 


JMP 

JF248 




2831 

» 




F245 

20C7ED 

2832 

BF245 

JSR 

SEDC7 

;send secondard addr (after TALK) 

F248 

8A 

2833 

JF248 TXA 



F249 

2490 

2834 


BIT 

Z90 


F24B 

10E6 

2835 


BPL 

BF233 

;if ST shovs device present, exit 

F24D 

4C07F7 

2836 


JMP 

JF707 

;else indicate error 
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2838 ;set output device 

2839 ; 

F250 200FF3 2840 WF250 JSR SF30F ;check X against logicai file table 

F253 F003 2841 BEQ BF258 

F255 4C01F7 2842 JMP JF701 [File Not Open Erro! if not found 

2843 ; 

F258 201FF3 2844 BF258 JSR SF31F ;set logicai file, device and sec. adr 

F25B A5BA 2845 LDA ZBA ;lf current devlce 

F25B 0003 2846 BNE BF262 [indicatea an input file 

F25F 4C0DF7 2847 BF25F JMP JF70D [error Not Output File 

2848 ; 

F262 C903 2849 BF262 CMP $03 [if device la thè scteen 

F264 F00F 2850 BEQ BF275 [exit 

F266 B011 2851 BCS BF279 [if serial bus device, handle 

F268 C902 2852 CMP $02 ;if device la RS-232 

F26A D003 2853 BNE BF26F 

F26C 4CE1EF 2854 JMP JEFE1 [initialize RS-232 output 

2855 [ 

F26F A6B9 2856 BF26F LDX 2B9 [if secondary address 

F271 £060 2857 CPX $60 [lndicatea an input file 

F273 F0EA 2858 BEQ BF25F [Not Output File Error 

F275 859A 2859 BF275 STA Z9A latore output device 

F277 18 2860 CLC [clear error indication 

F27B 60 2861 RTS 

2862 [ 

2863 [set serial bus output device 

2864 ; 

F279 AA 2865 BF279 TAX 

F27A 200CED 2866 JSR SED0C [seod LISTEN on serial bus 

F27D A5B9 2867 LDA ZB9 [if secondary address speclfied, 

F27F 1005 2868 BPL BF286 [send it 

F281 20BEED 2869 JSR SEDBE [else send dumny secondary address 

F284 D003 2870 BNE BF289 [skip next Inatruction 

F286 20B9ED 2871 BF286 JSR SEDB9 [seud secondary addr after LISTE» 

F289 8A 2872 BF289 TXA 

F28A 2490 2873 BIT 290 [check SI 

F28C 10E7 2874 BPL BF275 [and set output device if no errors 

F28E 4C07F7 2875 JMP JF707 [else indicate Device Not Presene Error 
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2877 

;CLOSE a file 



2878 

> 


F291 

2014F3 

2879 WF291 

JSR SF314 

F294 

F002 

2880 


BEQ BF298 

F296 

18 

2881 


CLC 

F297 

60 

2882 


RTS 



2883 

» 


F298 

201FF3 

2884 

BF298 

JSR SF31F 

F29B 

8A 

2885 


TXA 

F29C 

48 

2886 


PHA 

F29D 

A5BA 

2887 


EDA ZBA 

F29F 

F050 

2888 


BEQ BF2F1 

F2A1 

C903 

2889 


CMP $03 

F2A3 

F04C 

2890 


BEQ BF2F1 

F2A5 

B047 

2891 


BCS BF2EE 

F2A7 

C902 

2892 


CMP $02 

F2A9 

D01D 

2893 


BNE BF2C8 

F2AB 

68 

2894 


PLA 

F2AC 

20F2F2 

2895 


JSR SF2F2 

F2AF 

2083F4 

2896 


JSR SF483 

F2B2 

202 7 FE 

2897 


JSR SFE27 

F2B5 

A5F8 

2898 


LDA ZF8 

F2B7 

F001 

2899 


BEQ BF2BA 

F2B9 

C8 

2900 


1NY 

F2BA 

A5FA 

2901 

EF2BA 

LDA ZFA 

F2BC 

F001 

2902 


BEQ BF2BF 

F2BE 

C8 

2903 


1NY 

F2BF 

A900 

2904 

BF2BF 

LDA $00 

F2C1 

85F8 

2905 


STA ZF8 

F2C3 

85FA 

2906 


STA ZFA 

F2C5 

4C7DF4 

2907 


JMP JF47D 


;check A agalnst logicai file table 
; continue lf found 
;else exit 


;set logicai file, device and sec. adr 

;save file index 

;if current device is keyboard 


;or screea, skip to end 

;lf serial bua device (> 3), handle 

;if RS-232 device, 

jrestore file index 

; re-organize file tables 

; re-initialize CIA2 

;read top of aeaory into XY 

;if high byte of RS-232 recelve buffer 

;base addreas is not 0, 

;add 1 to bigh byte of top of meoory 

;if high byte of RS-232 tranamit buffer 

;base addreas is not 0 

;add 1 to bigh byte of top of aeaory 

;clear high byte of RS-232 

jreceive and cransmic buffer 

;base addresses 

;set new top of aeaory from XY 
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2909 

;close cassette device 



2910 

» 



F2C8 

A5B9 

2911 

BF2C8 EDA 

ZB9 

;if secondary address 

F2CA 

290F 

2912 

AND 

$0F 

jindicatee an input file. 

F2CC 

F023 

2913 

BEQ 

BF2F1 

;skip following 

F2CE 

20D0F7 

2914 

JSR 

SF7D0 

;else get tape buffer pointer in XY 

F2D1 

A900 

2915 

LDA 

$00 


F2D3 

38 

2916 

SEC 



F2D4 

20DDF1 

2917 

JSR 

SF1DD 

;close file with a $00 

F2D7 

2064F8 

2918 

JSR 

SF864 

;vrite last block to cassette 

F2DA 

9004 

2919 

BCC 

BF2E0 


F2DC 

68 

2920 

PLA 


;and return with C set upon error 

F2DD 

A900 

2921 

EDA 

$00 


F2DF 

60 

2922 

RTS 





2923 

• 



F2E0 

A5B9 

2924 

BF2E0 LDA 

2B9 

;if secondary address indicates that 

F2E2 

C962 

2925 

CMP 

$62 

;EOT marker to be vritten. 

F2E4 

DOOB 

2926 

BNE 

BF2F1 


F2E6 

A903 

2927 

LDA 

$05 


F2E8 

206AF7 

2928 

JSR 

EF76A 

;vrite special block co tape with EOT 

F2EB 

4CF1F2 

2929 

JMP 

BF2F1 

;then re-organize file tables 



2930 

* 





2931 

;close serial bus 

device 



2932 

; 



F2EE 

2042F6 

2933 

BF2EE JSR 

SF642 

;close serial bus device 

F2F1 

68 

2934 

BF2F1 PLA 


;re6tore file index 



2935 

* 





2936 

;re-organìze file 

tables 



2937 

• 



F2F2 

AA 

2938 

SF2F2 TAX 



F2F3 

C698 

2939 

DEC 

Z98 

;decrement files open 

F2F5 

E498 

2940 

CPX 

Z98 


F2F7 

F014 

2941 

BEQ 

BF30D 

;exlt if all files closed 

F2F9 

A498 

2942 

EDY 

Z98 


F2FB 

B95902 

2943 

LDA 

X0259.T 

;else move parameters of last entry 

F2FE 

9D5902 

2944 

STA 

X0259.X 

;(file, device and secondary address) 

F301 

B96302 

2945 

LDA 

X0263.T 

;to slot of file beìng closed 

F304 

9D6302 

2946 

STA 

X0263.X 

;thls retnoves file being closed 

F307 

B96D02 

2947 

EDA 

X026D.T 


F30A 

9D6D02 

2948 

STA 

X026D.X 


F30D 

18 

2949 

BF30D CLC 



F30E 

60 

2950 

RTS 




1B4 



2952 ;check X agalnst logicai file table 

2953 ; 

F30F A900 2954 SF30F LDA $00 

F311 8590 2955 STA Z90 jclear status word ST 

F313 8A 2956 TXA 

F314 A698 2957 SF314 LDX Z98 ;use t of fUes open co begln search 

F316 CA 2958 BF316 DEX 

F317 3015 2959 BUI BF32E ;exit If file not fouud 

F319 DD5902 2960 CMP X0259.X 

F31C D0F8 2961 BNE BF3Ì6 ;repeat If not matched 

F31E 60 2962 RTS 

2963 ; 

2964 ; set file parameters dependlng oo X 

2965 ; 

F31F BD5902 2966 SF31F LDA X0259.X 

F322 85B8 2967 STA ZB8 ;set current logicai file 

F324 BD6302 2968 LDA X0263.X 

F327 85BA 2969 STA ZBA ;set current devlce 

F329 BD6D02 2970 LDA X026D.X 

F32C 85B9 2971 SIA ZB9 ;set current secondar; address 

F32E 60 2972 BF32E BIS 

2973 ; 

2974 ;close all flles 

2975 ; 

F32F A900 2976 HF32F LDA $00 

F331 8598 2977 SIA Z98 ;clear number of flles open 

2978 ; 

2979 ;restore I/O to default devices 

2980 ; 

F333 A203 2981 HF333 LDX $03 

F335 E49A 2982 CFX Z9A ;lf output devlce is not thè serial bus 

F337 B003 2983 BCS BF33C 

F339 20FEED 2984 JSR SEDFE ;send UBLISTEN on serial bus 

F33C E499 2985 BF33C CPX Z99 ;if Input devlce ls not on serial bus, 

F33E B003 2986 BCS BF343 

F340 20EFED 2987 JSR SEDEF ;send TALK on serial bus 

F343 869A 2988 BF343 STX Z9A ;set output device to screen 

F345 A900 2989 LDA $00 

F347 8599 2990 STA Z99 ;set Input device to keyboard 

F349 60 2991 RTS 
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;lf current logicai file is 0 
;Indicate Noe Input File Error 




2993 

;0PEN 

a file 



2994 

* 



F34A 

A6B8 

2995 

WF34A LDX 

ZB8 

F34C 

DO 03 

2996 


BNE 

BF351 

F34E 

4C0AF7 

2997 


JMP 

JF70A 



2998 

ì 



F351 

200FF3 

2999 

BF351 

JSR 

SF30F 

F354 

D003. 

3000 


BNE 

BF359 

F356 

4CFEF6 

3001 


JMP 

JF6FE 



3002 

» 



F359 

A698 

3003 

BF359 

LDX 

298 

F35B 

EOOA 

3004 


CPX 

$0A 

F35D 

9003 

3005 


BCC 

BF362 

F35F 

4CFBF6 

3006 


JMP 

JF6FB 



3007 

» 



F362 

E698 

3008 

BF362 

INC 

298 

F364 

A5B8 

3009 


LDA 

ZB8 

F366 

9D5902 

3010 


STA 

X0259,X 

F369 

A5B9 

3011 


LDA 

ZB9 

F36B 

0960 

3012 


ORA 

$60 

F36D 

85B9 

3013 


STA 

ZB9 

F36F 

9D6D02 

3014 


STA 

X026D.X 

F372 

A5BA 

3015 


LDA 

ZBA 

F374 

9D6302 

3016 


STA 

X0263.X 

F377 

F05A 

3017 


BEQ 

BF3D3 

F379 

C903 

3018 


CMP 

$03 

F37B 

F056 

3019 


BEQ 

BF3D3 

F37D 

9005 

3020 


BCC 

BF384 

F37F 

20D5F3 

3021 


JSR 

SF3D5 

F382 

904F 

3022 


BCC 

BF3D3 

F384 

C902 

3023 

BF384 

CMP 

$02 

F386 

D003 

3024 


BNE 

BF38B 

F388 

4C09F4 

3025 


JMP 

JF409 



3026 

» 





3027 

;open 

for 

cassette 



3028 

» 



F38B 

20D0F7 

3029 

BF38B JSR 

SF7D0 

F38E 

5003 

3030 


BCS 

BF393 

F390 

4C13F7 

3031 


JMP 

JF713 



3032 

» 



F393 

A5B9 

3033 

BF393 LDA 

ZB9 

F395 

290F 

3034 


AND 

$0F 

F397 

D01F 

3035 


BNE 

BF3B8 

F399 

2017F8 

3036 


JSR 

SF817 

F39C 

B036 

3037 


BCS 

BF3D4 

F39E 

20AFF5 

3038 


JSR 

SF5AF 

F3A1 

A5B7 

3039 


LDA 

ZB7 

F3A3 

FOOA 

3040 


BEQ 

BF3AF 

F3A5 

20EAF7 

3041 


JSR 

SF7EA 

F3A8 

9018 

3042 


BCC 

BF3C2 

F3AA 

F028 

3043 


BEQ 

BF3Q4 

F3AC 

4C04F7 

3044 

BF3AC JMP 

JF704 



3045 

» 



F3AF 

202CF7 

3046 

BF3AF JSR 

SF72C 

F3B2 

F020 

3047 


BEQ 

BF3D4 

F3B4 

900C 

3048 


BCC 

BF3C2 

F3B6 

B0F4 

3049 


BCS 

BF3AC 


;check X agalnst logicai file cable 
;if found, 

;FUe Open Error 

;lf # files open ls 10 or more. 


;Too Hany Files Error 

;add l co 4 files open 

;add current logicai file 

;to end of cable of logicai files open 

;add secondary address 

;plus offset 

;to create current secondary address 

;snd enter into secondary address Cable 

;add current devlce 

;to current device tabie 

;and exit if device is keyboard 

;or screen 

;for serial device (> 3), perfora open 
; JMP 


;for RS-232 device, perfora open 


;get current secondary address 
;assk low order 4 bits 
;sk.lp If open fot output 
;hsodle msgs for cassette read 
;exlt upon error 
;handle messages for load 
;get 4 characters In file nane 

;lf nane presene, search tape for file 
;if not matched 
\and not end of tape, 

;File Kot Found Error 

;slnce no name, get next tape data 
;exlt if end of tape 
;lf no errore, continue 
;else Indicate File Not Found Error 


device 

;get tape buffer address in Ti 
;if address too low, 

;indlcate Illegal Device 4 


m 




3051 ;open cassette for 

3052 ; 

F3B8 2038F8 3053 BF3B8 JSR SF838 

F3BB B017 3054 BCS BF3D4 

F3BD A904 3055 LDA $04 

F3BF 206AF7 3056 JSR SF76A 

F3C2 A9BF 3057 BF3C2 LDA $BF 

F3C4 A4B9 3058 LDY ZB9 

F3C6 C060 3059 CPY $60 

F3C8 F007 3060 BEQ BF3D1 

F3CA A000 3061 LDY $00 

F3CC A902 3062 LDA $02 

F3CE 91B2 3063 SIA (ZB2),Y 

F3D0 98 3064 TYA 

F3D1 85A6 3065 BF3D1 STA ZA6 

F3D3 18 3066 BF3D3 CLC 

F3D4 60 3067 BF3D4 RTS 

3068 ; 

3069 ;open for serial bus 

3070 ; 

F3D5 A5B9 3071 SF3D5 LDA ZB9 

F3D7 30FA 3072 BMI BF3D3 

F3D9 A4B7 3073 LDY ZB7 

F3DB F0F6 3074 BEQ BF3D3 

F3DD A900 3075 LDA $00 

F3DF 8590 3076 STA Z90 

F3E1 A5BA 3077 LDA ZBA 

F3E3 200CED 3078 JSR SEDOC 

F3E6 A5B9 3079 LDA ZB9 

F3E8 09FO 3080 ORA $F0 

F3EA 20B9ED 3081 JSR SEDB9 

F3ED A590 3082 LDA Z90 

F3EF 1005 3083 BPL BF3F6 

F3F1 68 3084 PLA 

F3F2 68 3085 PLA 

F3F3 4C07F7 3086 JMP JF707 

3087 ; 

F3F6 A5B7 3088 BF3F6 LDA ZB7 

F3F8 FOOC 3089 BEQ BF406 

F3FA AOOO 3090 LDY $00 

F3FC B1BB 3091 BF3FC LDA (ZBB),Y 

F3FE 20DDED 3092 JSR JEDDD 

F401 C8 3093 XNY 

F402 C4B7 3094 CPY ZB7 

F404 D0F6 3095 BUE BF3FC 

F406 4C54F6 3096 BF406 JMP JF654 


output 

;handle msgs for cassette write 
;exit upon error 

;write block with Data Header code 
jinltialize-buffer index 
;check secondary address 
;if tape opened for output 


;put code for Data Block 
;into first byte of buffer 

;inltlallze tape buffer pointer 


devices (device > 3) 

;if current secondary address invalid, 
;exit 

;if nane not present, 

;exit 

;else clear ST 

;set curreut device 

;send UNL1STEN on serial bus 

;send current secondary address 

;plus offset 

;on serial bus 

; check ST 

;if Device Not Present, 

;delete ovn return address 

; indicate Device Not Present 

;if file rame present 

;initialize index 

;send file nane on serial bus 


;repeat for all characters of file nane 
;send UNL1STEN on serial bus and exit 
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3098 

;0PEN 

RS-232 device 



3099 

; 



F409 

2083F4 

3100 

JF409 

JSR 

SF483 

F40C 

8C9702 

3101 


STY 

X0297 

F40F 

C4B7 

3102 

BF40F 

CPY 

ZB7 

F411 

FOOA 

3103 


BEQ 

BF41D 

F413 

B1BB 

3104 


LDA 

(ZBB),Y 

F415 

999302 

3105 


STA 

X0293.Y 

F418 

C8 

3106 


INY 


F419 

C004 

3107 


CPY 

504 

F41B 

D0F2 

3108 


BNE 

BF40F 

F41D 

204AEF 

3109 

BF41D 

JSR 

SEF4A 

F420 

8E9802 

3110 


STX 

X0298 

F423 

AD9302 

3111 


LDA 

X0293 

F426 

290F 

3112 


AND 

$0F 

F428 

F01C 

3113 


BEQ 

BF446 

F42A 

0A 

3114 


ASL 

A 

F42B 

AA 

3115 


TAX 


F42C 

ADA6Q2 

3116 


LBA 

X02A6 

F42F 

D009 

3117 


BNE 

BF4 3A 

F431 

BCC1FE 

311? 


L0Y 

TFEC2-I.X 

F434 

BDCOFE 

3119 


LDA 

TFEC2-2,X 

F437 

4C40F4 

3120 


JMP 

JF440 



3121 

; 



F43A 

BCEBE4 

3122 

BF43A 

LDY 

TE4EC-1,X 

F43D 

BDEAE4 

3123 


LDA 

TE4EC-2.X 

F440 

8C9602 

3124 

JF440 

STY 

X0296 

F443 

8D9502 

3125 


STA 

X0295 

F446 

AD9502 

3126 

BF446 

LDA 

X0295 

F449 

OA 

3127 


ASL 

A 

F44A 

202EFF 

3128 


JSR 

SFF2E 

F44D 

AD9402 

3129 


LDA 

X0294 

F450 

4A 

3130 


LSR 

A 

F451 

9009 

3131 


BCC 

BF45C 

F453 

AD01DD 

3132 


LDA 

XDD01 

F456 

OA 

3133 


ASL 

A 

F457 

B003 

3134 


BCS 

BF45C 

F459 

200DF0 

3135 


JSR 

BF00D 



3136 

■ 



F45C 

AD9B02 

3137 

BF45C 

LDA 

X029B 

P45F 

8D9C02 

3138 


STA 

X029C 

F462 

AD9E02 

3139 


LDA 

X029E 

F465 

8D9D02 

3140 


STA 

X029D 

F468 

2027FE 

3141 


JSR 

SFE27 

F46B 

A5F8 

3142 


LDA 

ZF8 

F46D 

B003 

3143 


BNE 

BF474 

F46F 

88 

3144 


DEY 


F470 

84F8 

3145 


STY 

ZF8 

F472 

86F7 

3146 


STX 

ZF7 

F474 

A5FA 

3147 

BF474 

LDA 

ZFA 

F476 

0005 

3148 


BNE 

JF47D 

F478 

88 

3149 


DEY 


F479 

84FA 

3150 


STY 

ZFA 

F47B 

86F9 

3151 


STX 

ZF9 

F47D 

38 

3152 

JF47D 

SEC 


F47E 

A9F0 

3153 


LDA 

SF0 

F480 

4C2DFE 

3154 


JMP 

JFE2D 


;initialize CIA2 

;clear RS-232 Status Register 

;if pseudo file name preeent, 

;set Control & Command regieters 
; and possible non-6tandard baud rate 


;fetch word length and move to 
jnumber of bits to 6end 
; check RS-232 Control Register 

;if standard baud rate specified, 
jcalculate index into table 


;use US table of baud rate 
;go set baud rate 

;use loti table of baud rate factors 
;to fetch baud rate factor 
;set baud rate factor 
;low byte also 


; continue to compute baud rate 
; check. RS-232 Command Register 
;for 3-line or X-line mode 
;and skip if In 3-1ine aode 


;continue if DSR present, else 
;DSR Signal Mlasing Error 

;nove RS-232 receive buffer input ptr 
;to RS-232 receive buffer output ptr 
;nove RS-232 transmit buffer input ptr 
;to RS-232 transmit buffer output ptr 
;fetch top of memory in XY 
;if high byte of RS-232 receive buffer 
;base address not initialized yet» 

;subtract l from top of memory address 
;use top of memory address to 
;Initlallze receive buffer base address 
;same operation for transmit buffer 
;base address 


;reset top of memory pointers from XY 


;if US machine 
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3156 

;inltialize CIA2 



3157 

i 


F483 A97F 

3158 

SF483 LDA $7F 


F485 8D0DDD 

3159 

STA XDDOD 

;clear any pendlng IRQ's in 1CR2 

F488 A906 

3160 

LDA $06 


F48A 8D03DD 

3161 

STA XDD03 

;PB2 bica 1 and 2 as outputs 

F48D 8D01DD 3162 

STA XDD01 

;set DTE and RTS high 

F490 A904 

3163 

ÉDA $04 


F492 ODOODD 3164 

ORA XBDOO 


F495 8D00DD 3165 

STA XDDOO 

;set RS-232 output to high (idle) 

F498 AOOO 

3166 

LDY $00 


F49A 8CA102 

3167 

STY X02A1 

;clear ICR2 activity regiater 

F49D 60 

3168 

SIS 



3169 

» 



3170 

;load RAM from a device 


3171 

» 


F49E 86C3 

3172 

JF49E STX ZC3 

jset destination address from XY 

F4A0 84C4 

3173 

STY ZC4 


F4A2 6C3003 

3174 

JMF (X0330) 

;load RAM (normally F4A5) 


3175 

» 



3176 

; standard load RAM 

entry 


3177 

y 


F4A5 8593 

3178 WF4A5 STA Z93 

;set load/verify svitch to load 

F4A7 A900 

3179 

LDA $00 


F4A9 8590 

3180 

STA Z90 

;clear SI 

F4AB A5BA 

3181 

LDA ZBA 

;if current device is thè keyboard (0) 

F4AD D003 

3182 

BNE BF4B2 


F4AF 4C13F7 

3183 

BF4AF JMF JF713 

;indicate Illegal Device # Error 


3184 

> 

F4B2 C903 

3185 

BF4B2 CMP $03 

;if current devlce is thè acreen 

F4B4 F0F9 

3186 

BEQ BF4AF 

;Indicate error 

F4B6 907B 

3187 

BCC BF533 

;lf not serial bus devlce 

F4B8 A4B7 

3188 

LDY ZB7 

;and if no file nane. 

F4BA D003 

3189 

BNE BF4BF 


F4BC 4C10F7 

3190 

JMF JF710 

;indicate File Nane Misaing Error 


3191 

> 


F4BF A6B9 

3192 

BF4BF LDY ZB9 

;aove X to secondary address 

F4C1 20AFF5 3193 

JSS SF5AF 

;bandle load nessageB 

F4C4 A960 

3194 

LDA $60 

;set current secondary address 

F4C6 85B9 

3195 

STA ZB9 


F4C8 20D5F3 

3196 

JSR SF3D5 

;perfora open of serial bus device 

F4CB A5BA 

3197 

LDA ZBA 

;let A « current devlce 

F4CD 2009ED 3198 

JSR SED09 

;send TALK on serial bus 

F4D0. A5B9 

3199 

LDA ZB9 

;fetch secondary address 

F4D2 20C7ED 3200 

JSR SEDC7 

;sud send on serial bus 

F4D5 2013EE 3201 

JSR JEE13 

;input a byte on serial bus 

F4D8 85AE 
F4DA A590 

3202 

STA ZAE 

{set I/O end address 

3203 

LDA Z90 


F4DC 4A 

3204 

LSR A 


F4DD 4A 

3205 

LSR A 


F4DE B050 

3206 

BCS BF530 

;if ST doesn't indicate a timeout (read) 

F4E0 2013EE 

3207 

JSR JEE13 

;input a byte on.serial bus 

F4E3 85AF 

3208 

STA ZAF 

;set high byte of end address 

F4E5 8A 

3209 

TXA 

F4E6 D008 

3210 

BNE BF4F0 

;if EOI is not low. 

F4E8 A5C3 

3211 

LDA ZC3 

;use destination address 

F4EA 85AE 

3212 

STA ZAE 

;as end address 

F4EC A5C4 

3213 

LDA ZC4 

; ditto for high byte 

F4EE 85AF 

3214 

STA ZAF 


F4F0 20D2F5 

3215 

BF4F0 JSR SF5D2 

Sprint LOAD or VERIFY 
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F4F3 

A9FD 

3216 

BF4F3 

LDA 

$FD 

F4F5 

2590 

3217 


AND 

Z90 

F4F7 

8590 

3218 


STA 

Z90 

F4F9 

20E1FF 

3219 


JSR 

SFFE1 

F4FC 

D003 

3220 


BNE 

BF50I 

F4FE 

4C33F6 

3221 


JMP 

JF633 



3222 

> 



F501 

2013EE 

3223 

BF501 

JSR 

JEE13 

F504 

AA 

3224 


TAX 


F505 

A590 

3225 


LDA 

Z90 

F507 

4A 

3226 


LSR 

A 

F508 

4A 

3227 


LSR 

A 

F509 

B0E8 

3228 


BCS 

BF4F3 

F50B 

SA 

3229 


TXA 


F50C 

A493 

3230 


LDY 

Z93 

F50E 

F00C 

3231 


BEQ 

BF51C 

F510 

A000 

3232 


LDY 

$00 

F512 

D1AE 

3233 


Off 

(ZAE),Y 

F514 

F008 

3234 


BEQ 

BF51E 

F516 

A910 

3235 


LDA 

Sio 

F518 

201CFE 

3236 


JSR 

SFE1C 

F51B 

2C 

3237 


-BY 

$2C 

F51C 

91AE 

3238 

BF51C 

STA 

(ZAE),Y 

F51E 

E6AE 

3239 

BF51E 

INC 

ZAE 

F520 

D002 

3240 


BNE 

BF524 

F522 

E6AF 

3241 


INC 

ZAF 

F524 

2490 

3242 

BF524 

BIT 

Z90 

F526 

50CB 

3243 


BVC 

BF4F3 

F528 

20EFED 

3244 


JSR 

SEDEF 

F52B 

2042F6 

3245 


JSR 

SF642 

F52E 

9079 

3246 


BCC 

BF5A9 

F530 

4C04F7 

3247 

BF530 

JMP 

JF704 



3248 

» 



FS33 

4A 

3249 

BF533 

LSR 

A 

F534 

BQ03 

3250 


BCS 

BF539 

F536 

4C13F7 

3251 


JMP 

JF713 



3252 

i 



F539 

20D0F7 

3253 

BF539 

JSR 

SF7D0 

F53C 

B003 

3254 


BCS 

BF541 

F53E 

4C13F7 

3255 


JMP 

JF713 



3256 

i 



F541 

2017F8 

3257 

BF541 

JSR 

SF817 

F544 

B068 

3258 


BCS 

BF5AE 

F546 

20AFF5 

3259 


JSR 

SF5AF 

F549 

A5B7 

3260 BF549 

LDA 

ZB7 

F54B 

F009 

3261 


BEQ 

BF556 

FS4D 

20EAF7 

3262 


JSR 

SF7EA 

F550 

900B 

3263 


BCC 

BF55D 

FS52 

F05A 

3264 


BEQ 

BFSAE 

F554 

B0DA 

3265 


BCS 

BF530 

F556 

202CF7 

3266 

BF556 

JSR 

SF72C 

F559 

F053 

3267 


BEQ 

BFSAE 

F55B 

B0P3 

3268 


BCS 

BF530 

F55D 

A590 

3269 

BF55D 

LDA 

Z90 

F35F 

2910 

3270 


AND 

$10 

F561 

38 

3271 


SEC 


F562 

D04A 

3272 


BNE 

BFSAE 

F564 

E001 

3273 


CFX 

$01 

F566 

Fon 

3274 


BEQ 

BF579 

F568 

E003 

3275 


CPX 

$03 


;clear timeout (read) bit 
;iu ST 

; check for Stop key 
;if depressed 
;abort load 

;input a byte on serial bus 
;if Timeout (read) set in ST 


;abort load 

;i£ in verify mode 


;coiapare byte rtad to memory 


;and set verify error upon mismatch 
;sklp next lnetructlon 
;load byte to memory 
;bump load address 


;lf not end of file, 
jrepeat 

;else sent TALK on serial bus 
;close serial bus 
;and exit 

;Indicate File Not Found Error 

;if input device is not 1 (cassette) 

;lndicate Illegal Device # 

;fetch tape buffer pointer 

;lf invalld, indicate Illegal Device f 

;dlsplay msgs and test buttons for read 

;handle load messages 
;lf file nane presene 

jsearch tape for file nane 
;if no errors, continue 
;exlt if end of tape 
;error lf not found 

;since no file asme, get next tape hdr 
;exit if end of tape found 
;indicate File Not Found Error 
;check ST for unrecoverable read error 


;and exit if so 

;lf not Program Header 
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F56A DODO 

3276 


BUE BF549 

F56C A001 

3277 

BF56C LDY $01 

F56E B1B2 

3278 


LDA (ZB2),Y 

F570 85C3 

3279 


STA 2C3 

F572 C8 

3280 


IKY 

F573 B1B2 

3281 


LDA (ZB2),Y 

F575 85C4 

3282 


STA 2C4 

F577 B004 

3283 


BCS BF57D 

F579 A5B9 

3284 

BF579 

LDA ZB9 

F57B DOEF 

3285 


BNE BF56C 

F57d A003 

3286 

BF57D 

LDY $03 

F57F B1B2 

3287 


LDA (ZB2),Y 

F581 À001 

3288 


LDY $01 

F583 F1B2 

3289 


SBC (ZB2),Y 

F585 AA 

3290 


TAX 

F586 A004 

3291 


LDY $04 

F588 B1B2 

3292 


LDA {ZB2),Y 

F58A A002 

3293 


LDY $02 

F58C F1B2 

3294 


SBC <ZB2),Y 

F58E A8 

3295 


TAY 

F58F 18 

3296 


CLC 

F590 8A 

3297 


TXA 

F591 6SC3 

3298 


ADC ZC3 

F593 85AE 

3299 


STA ZAE 

F595 98 

3300 


TYA 

F596 É5C4 

3301 


ADC ZC4 

F598 85AF 

3302 


STA ZAF 

F59A A5C3 

3303 


LDA ZC3 

F59C 8SCI 

3304 


SIA ZC1 

F59E A5C4 

3305 


LDA ZC4 

F5A0 85C2 

3306 


STA ZC2 

F5A2 20D2F5 3307 


JSR SF5D2 

F5A5 204AF8 

3308 


JSR SF84A 

F5A8 24 

3309 


-BY $24 

F5A9 18 

3310 

BF5A9 

CLC 

F5AA A6AE 

3311 


LDX ZAE 

F5AC A4AF 

3312 


LDY ZAF 

FSAE 60 

3313 

BF5AE 

RTS 


;reset load address from tape buffer 
;hlgh byte also 


;ìndex lo» byte of end address 


; computa length of block to load 


;and set end address of I/O area 


;set tape load address 


;display load messages 
;load froa cassette 
;sklp next instruction 
;clear error flag 
;exit with end address in XY 
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3315 ihandle messages for a load operation 


3316 ; 


F5AF A59D 

3317 

SF5AF 

LEA Z9D 

F5B1 101E 

3318 


BPL BF5D1 

F5B3 AOOC 

3319 


LDY $0C 

F5B5 202FF1 

3320 


JSR BF12F 

F5B8 A5B7 

3321 


LDA ZB7 

F5BA F015 

3322 


BEQ BF5D1 

F5BC A017 

3323 


LDY $17 

F5BE 202FF1 

3324 


JSR BF12F 

F5C1 A4B7 

3325 JF5C1 

LDY ZB7 

F5C3 FOOC 

3326 


BEQ BF5D1 

F5C5 A000 

3327 


LDY $00 

F5C7 B1BB 

3328 

BF5C7 

LDA (ZBB),Y 

F5C9 20D2FF 

3329 


JSR SFFD2 

F5CC C6 

3330 


INY 

F5CD C4B7 

3331 


CPY ZB7 

F5CF D0F6 

3332 


BtIE BF5C7 

F5D1 60 

3333 

3334 

BF5D1 

» 

RIS 


3335 

3336 

jhandle Load/Verify 

» 

F5D2 A049 

3337 

SF5D2 

LDY $49 

F5D4 A593 

3338 


LDA Z93 

F5D6 F002 

3339 


BEQ BF5DA 

F5D8 A059 

3340 


LDY $59 

F5DA 4C2BF1 

3341 

BF5DA JHF JF12B 


;exlt if in Run mode 

;prlnt SEARCHING 

;if file name is present, 

;print FOR 

;lf file nane is present 
;print file name 

jrepeat for all characters in nane 

message 
;assume Load 

;change to Verify if flag is non-rero 
;display message and return 
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3343 

; l«;r RAM 

to a device 



3344 

! 




F5DD 

86AE 

3345 

JF5DD 

STX 

ZAE 

;set end of I/O area from XY 

F5DF 

84 AF 

3346 


STY 

ZAF . 


F5E1 

AA 

3347 


TAX 


jA « Index to start address 

F5E2 

B500 

3348 


LDA 

Z00,X 


F5E4 

85C1 

3349 


STA 

ZC1 

{move start address to ZC1/2 

F5E6 

B501 

3350 


LDA 

Z01,X 


F5E8 

85C2 

3351 


STA 

ZC2 


F5EA 

6C3203 

3352 


JMF 

(X0332) 

{perfora Save (normally F5ED) 



3353 

t 






3354 

;standard 

save RAM entry 



3355 

» 




F5ED 

A5BA 

3356 

VF5ED 

LDA 

ZBA 

{if current device is keyboard (0) 

F5EF 

D003 

3357 


BNE 

BF5F4 


F5F1 

4C13F7 

3358 

BF5F1 

JMP 

JF713 

;indicate Ulegsl Device t 



3359 

* 




F5F4 

C903 

3350 

BF5F4 

CMP 

$03 

;if current device is screen 

F5F6 

F0F9 

3361 


BEQ 

BF5F1 

jindlcate error 

F5F8 

9Q5F 

3362 


BCC 

BF659 

;skip if cassette 

F5FA 

A961 

3363 


LDA 

$61 

;device must be serial bus. 

F5FC 

85B9 

3364 


STA 

ZB9 

;set temporary sec. adr to Output 

FSFE 

A4B7 

3365 


LDY 

ZB7 

;if file name is not present 

F600 

D003 

3366 


BNE 

BF605 


F602 

4CIOF7 

3367 


JMP 

JF710 

{indicate File Name Missing 



3368 

1 




F605 

20D5F3 

3369 

BF605 

JSK 

SF3D5 

{perforai open for serial bus device 

F608 

208FF6 

3370 


JSR 

SF68F 

jprint Saving + file name 

F60B 

ASBA 

3371 


LDA 

ZBA 

;get current device 

F60D 

200CED 

3372 


JSK 

SEDOC 

{and send L1STEN on serial bus 

F610 

A5B9 

3373 


LDA 

ZB9 

{send secoodary address 

F612 

20B9ED 

3374 


JSR 

SEDB9 

;on serial bus 

F615 

AOOO 

3375 


LDY 

$00 


F617 

208EFB 

3376 


JSR 

SFB8E 

{move ptr to 1/0 area into ZAC/D 

F61A 

A5AC 

3377 


LDA 

ZAC 


F61C 

20DDED 

3378 


JSR 

JEDDD 

;send low of start address on serial 

F61F 

A5AD 

3379 


LDA 

ZAD 


F621 

20DDED 

3380 


JSR 

JEDDD 

;then big 11 byte 

F624 

20D1FC 

3381 

BF624 

JSR 

SFCD1 

{if block is not finlshed 

F627 

BOIA 

3382 


BCS 

BF63F 


F629 

B1AC 

3383 


LDA 

(ZAC),Y 

{fetch next byte 

F62B 

20DDED 

3384 


JSR 

JEDDD 

{and send on serial bus 

F62E 

20E1FF 

3385 


JSR 

SFFE1 

{check for Stop key 

F631' 

D007 

3386 


BNE 

BF63A 


F633 

2042F6 

3387 

JF633 

JSR 

SF642 

{and dose serial bus if depressed 

F636 

A900 

3388 


LDA 

$00 


F638 

38 

3389 


SEC 



F639 

fio 

3390 


RTS 





3391 

» 




F63A 

20DBFC 

3392 

BF63A 

JSR 

SFCDB 

{lncrement address 

P63D 

DOE5 

3393 


BNE 

BF624 

;and repeat 

F63F 

20FEED 

3394 

BF63F 

JSR 

SEDFE 

; send UNL1STEN on thè serial bus 
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3396 

;close serial bus device 


3397 

» 


F642 24B9 

3398 

SF642 BIT ZB9 

;lf secondary address valid. 

F644 3011 

3399 

BUI BF657 


F646 A5BA 

3400 

LDA ZBA 

;get curreot device 

F648 200CED 

3401 

JSR SEDOC 

;and Bend LISTEN on serial bus 

F64B ASB9 

3402 

LDA ZB9 

;fetch eecoodary address 

F64D 29EF 

3403 

AND $EF 

; strip bit 4 

F64F 09E0 

3404 

ORA $E0 

; force blts 7-5 

F651 20B9ED 

3405 

JSR SEDB9 

;send secondary addr afteT L1STEN 

F654 20FEED 

3406 

JF654 JSR SEDFE 

; send UNLISTEN on serial bus 

F657 18 

3407 

BF657 CLC 


F658 50 

3408 

RTS 



3409 

• 


F659 4A 

3410 

BF659 LSR A 

;if device is not cassette 

F65a B003 

3411 

BCS BF65F 


F65C 4C13F7 

3412 

JMP JF713 

;indicate Illegal Device # 


3413 

1 



3414 

;save RAM to cassette 


3415 

t 


F65F 2OD0F7 

3416 BF65F JSR SF7D0 

;set tape buffer pointer in XY 

Fé62 908D 

3417 

BCC BF5F1 

;exit lf addresa, invalid 

F664 2038F8 

3418 

JSR SF838 

;print maga for cassette and teat senae 

F667 B025 

3419 

BCS BF68E 


F669 208FF6 

3420 

JSR SF68F 

;print message Savlng file nane 

F66C A203 

3421 

LDX $03 


F66E A3B9 

3422 

LDA ZB9 


F670 2901 

3423 

AND $01 

;if secondary addreas is even. 

F672 D002 

3424 

BNE BFtì76 


F674 A201 

3425 

LDX $01 

;set secondary address to 1 

F676 8A 

3426 

BF676 TXA 


F677 206AF7 

3427 

JSR SF76A 

;write Program Header block to cassette 

F67A B012 

3428 

BCS BF6SE 

;exlt upon error 

F67C 2057F8 

3429 

JSR SF867 

;vrite block to cassette 

F67F BOOD 

3430 

BCS BF68E 

;agaln, exit upon error 

F681 A5B9 

3431 

LDA ZB9 

;if write End-Of-Tape Mark specified, 

F683 2902 

3432 

AND $02 


F685 F006 

3433 

BEQ BF68D 


F687 A905 

3434 

LDA $05 

;then write special block 

F689 206AF7 

3435 

JSR SF76A 


F68C 24 

3436 

.BY $24 

;sklp next instructlon 

F66D 18 

3437 

BF68D CLC 

;indicate no errors 

F68E 60 

3438 

BF68E RTS 



3439 

t 



3440 

jhandle ssessage 

Savlng plus file nasse 


3441 

1 


T68F A59D 

3442 

SF68F LDA Z9D 


F691 10FB 

3443 

BPL BF6SE 

;return if not in Direct mode 

F693 A051 

3444 

LDY $51 

;point to message SAVXNG 

F695 202FF1 

3445 

JSR BF12F 

;print message 

F698 4CC1FS 

3446 

JMP JF5C1 

;then print file nasse 
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3448 

3449 

;1qc rement reai 
5 

tine clock 

F69B A200 

3450 

JF69B LDX SOO 


F69D E6A2 

3451 

INC ZA2 

;bump low byte 

F69F D006 

3452 

BKE BF6A7 

F6A1 E6AI 

3453 

INC ZA1 

;then middle byte upon overflow 

F6A3 D002 

3454 

BNE BF6A7 

• 

F6A5 E6A0 

3455 

INC ZAO 

;then high byte upon overflow 

F6A7 38 

3456 

BF6A7 SEC 

F6A8 A5A2 

3457 

IDA ZA2 

; check for full 24 hours 

F6AA E901 

3458 

SBC $01 


F6AC A5A1 

3459 

LDA ZA1 


F6AE E91A 

3460 

SBC $1A 


F6B0 A5A0 

3461 

IDA ZAO 


F6B2 E94F 

3462 

SBC $4F 


F6B4 9006 

3463 

BCC BF6BC 


F6B6 86AO 

3464 

STX ZAO 

;yes, clear clock 

F6B8 86A1 

3465 

srx ZA1 

F6BA 86A2 

3466 

STX ZA2 


F6BC AD01DC 

3467 

BF6BC LDA XDC01 

;read current keyboard scan line 

F6BF CD01DC 

3468 

CMP XDC01 

F6C2 D0F8 

3469 

BNE BF6BC 

;valt me il steady 

F6C4 AA 

3470 

TAX 

F6C5 3013 

3471 

BIG BF6DA 


F6C7 A2BD 

3472 

LDX $BD 

; seieet Stop key row 

F6C9 8E00DC 

3473 

STX XDCOO 

F6CC AE01DC 

3474 

BF6CC LDX XDC01 

;read coluno 

F6CF EC01DC 

3475 

CPX XDC01 


F6D2 D0F8 

3476 

BNE BF6CC 

;wait until steady 

F6D4 8D00DC 

3477 

STA XDCOO 

F6D7 E8 

3478 

INX 


F6D8 DO02 

3479 

BNE BF6DC 


F6DA 8591 

3480 

BF6DA STA Z91 

;save scan result 

F6DC 60 

3481 

3482 

BF6DC RTS 

i 



3483 

3484 

;read reai line 

» 

clock 

F6DD 78 

3485 

JF6DD SEI 

;kill IRQ to avoid lnterference 

F6DE A5A2 

3486 

IDA ZA2 

;read low byte into A 

F6E0 A6A1 

3487 

LDX ZA1 

;read Biddle byte iato X 

F6E2 A4A0 

3488 

3489 

LDY ZAO 

» 

;and high byte into Y 


3490 

;set reai rine clock 


3491 

! 


'iir: r. 

3492 

JF6E4 SEI 

;disable IRQ to avoid interferente 

F6E5 85A2 

3493 

STA ZA2 

;set low byte from A 

F6E7 86A1 

3494 

STX ZA1 

;cet middle byte from X 

F6E9 84A0 

3495 

STY ZAO 

;and set high byte from Y 

F6EB 58 

3496 

CLI 

;enable IRQ's 

F6EC 60 

3497 

RTS 


195 





3499 

;test STOP key 



3500 

> 



F6ED 

A591 

3501 

WF6ED 

IDA 

Z91 

F6EF 

C97F 

3502 


CHP $7F 

F6F1 

D007 

3503 


BNE 

BF6FA 

F6F3 

08 

3504 


PHP 


F6F4 

20CCFF 

3505 


JSR 

SFFCC 

F6F7 

85C6 

3506 


STA 2C6 

F6F9 

28 

3507 


PLP 


F6FA 

60 

3508 

BF6FA RTS 




3509 

» 





3510 

;handle 1/0 errore 



3511 

» 



F6FB 

A901 

3512 

JF6FB 

LDA 

$01 

F6FD 

2C 

3513 


.BY 

$2C 

F6FE 

A902 

3514 

JF6FE 

LDA 

$02 

F700 

2C 

3515 


-BY 

$2C 

F701 

A903 

3516 

JF701 

LDA 

$03 

F703 

2C 

3517 


.BY 

$2C 

F704 

A904 

3518 

JF704 

LDA 

$04 

F706 

2C 

3519 


.BY 

$2C 

F707 

A905 

3520 

JF707 

LDA 

$05 

F709 

2C 

3521 


• BY 

$2C 

F70A 

A906 

3522 

JF70A 

LDA 

$06 

F70C 

2C 

3523 


• BY 

$2C 

F70D 

A907 

3524 

JF70D 

LDA 

$07 

F70F 

2C 

3525 


• BY 

$2C 

F710 

A908 

3526 

JF710 

LDA 

$08 

F712 

2C 

3527 


• BY 

$2C 

F713 

A909 

3528 

JF713 

LDA 

$09 

F715 

46 

3529 


PBA 


F716 

20CCFF 

3530 


JSR 

SFFCC 

F719 

AOOO 

3531 


LDY 

$00 

F71B 

24 9D 

3532 


BIT 

Z9D 

F71D 

500A 

3533 


BVC 

EF729 

F71F 

202FF1 

3534 


JSR 

BF12F 

F722 

68 

3535 


FLA 


F723 

48 

3536 


PBA 


F724 

0930 

3537 


ORA 

$30 

F726 

20D2FF 3538 


JSR 

SFFD2 

F729 

68 

3539 

BF729 

FLA 


F72A 

38 

3540 


SEC 


F72B 

60 

3541 


RTS 



;if Stop key is depreased 
;save flags oc stacV. 

;close files and set devices to default 
;caacel keyboard queue 
;restore flags 


;Too Hany Files 

;Flle Open 

;Flle Not Opeo 

;Flle Not Found 

;Device Not Fresent 

;Not Input File 

;Not Output File 

;File Nane Mlsslng 

;Illegal Device t 

;save error t on stack 

;close files and set devices to default 


;if bit 6 in Direct/Run flag la set 
;print oessage I/O Error 


;followed by error # 

;restore error number 
;set error flag 
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3543 ;get next file header froa cassette 

3544 ; 


F72C A593 

3545 

SF72C 

LDA 293 

F72E 

48 

3546 


PHA 

F72F 

2041F8 

3547 


JSR SF841 

F732 

68 

3548 


PLA 

F733 

8593 

3549 


STA 293 

F735 

B032 

3550 


BCS BF769 

F737 

AOOO 

3551 


U)Y $00 

F739 

B1B2 

3552 


LDA (2B2),T 

F73B 

C905 

3553 


CMP $05 

F73D 

F02A 

3554 


BEQ BF769 

F73F 

C901 

3555 


CKP $01 

F741 

F008 

3556 


BEQ BF74B 

F743 

C903 

3557 


CKP $03 

F745 

F004 

3558 


BEQ BF74B 

F747 

C904 

3559 


CMP $04 

F749 

D0E1 

3560 


BNE SF72C 

F74B 

AA 

3561 

BF74B TAX 

F74C 

249D 

3562 


BIT Z9D 

F74E 

1017 

3563 


BPL BF767 

F750 

A063 

3564 


LDY $63 

F752 

202FF1 

3565 


JSR BF12F 

F755 

A005 

3566 


LDY $05 

F757 

B1B2 

3567 

BF757 

LDA (ZB2),Y 

F759 

20D2FF 3568 


JSR SFFD2 

F75C 

C8 

3569 


lire 

F75D 

COI 5 

3570 


CPY $15 

F75F 

D0F6 

3571 


BNE BF757 

F761 

A6:2 

4683 

FC872 DI): B:2 

C874 

35T5TO 

4684 


VES ET0T5 

F766 

EA 

3574 


NOP 

F767 

18 

3575 

BF767 

CLC 

F76B 

88 

3576 


DEY 

F769 

60 

3577 

BF769 

RTS 


;save load/verify svitch on stack 

;read a block froa tape 

;restore load/verify flag 
;exit if read error 

;get first character in tape buffer 
;if code for End of Tape 
;return 

;if not code for Program Header 
;or 


;or Data Header, try next block 

;if in direct aode, 

;point to nessage FOUND 
;and print it 


;print a file aaae character 

;aod repeat for 
;all 21 characters 

Xltfublz ptba eija prn jid. 8.5 seconda 
jfiller for patch 
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3579 ;wrlte a special block to cassette with code froo A 

3580 ; 


F76A 

859E 

3581 

SF76A 

STA Z9E 

F76C 

20D0F7 

3582 


JSR SF7D0 

F76F 

905E 

3583 


BCC BF7CF 

F771 

A5C2 

3584 


LDA 2C2 

F773 

48 

3585 


PHA 

F774 

A5C1 

3586 


LDA ZCl 

F?76 

48 

3587 


PHA 

F777 

ASAF 

3588 


LDA ZAF 

F779 

48 

3589 


PHA 

F77A 

A5AE 

3590 


LDA ZAE 

F77C 

46 

3591 


PHA 

F77D 

AOBF 

3592 


LDY $BF 

F77F 

A920 

3593 


LDA $20 

F781 

91B2 

3594 

BF781 

STA (ZB2),Y 

F783 

88 

3595 


DEY 

F784 

DOFB 

3596 


BNE BF781 

F786 

A59E 

3597 


LDA Z9E 

F788 

91B2 

3598 


STA (ZB2),Y 

F78A 

C6 

3599 


INY 

F78B 

A5C1 

3600 


LDA ZCl 

F78D 

91B2 

3601 


STA (ZB2),Y 

F78F 

C8 

3602 


INY 

F790 

A5C2 

3603 


LDA ZC2 

F792 

91B2 

3604 


STA (ZB2),Y 

F794 

C8 

3605 


INY 

F795 

A5AE 

3606 


LDA ZAE 

F797 

91B2 

3607 


STA (ZB2),Y 

F799 

C8 

3608 


INY 

F79A 

ASAF 

3609 


LDA ZAF 

F79C 

91B2 

3610 


STA (ZB2),Y 

F79E 

C8 

3611 


INY 

F79F 

849F 

3612 


STY Z9F 

F7A1 

A000 

3613 


LDY $00 

F7A3 

84 9E 

3614 


STY Z9E 

F7a5 

A49E 

3615 

BF7A5 

LDY Z9E 

F7A7 

C4B7 

3616 


CPY ZB7 

F7A9 

FOOC 

3617 


BEQ BF7B7 

F7AB 

B1BB 

3618 


LDA (ZBB),Y 

F7AD 

A49F 

3619 


LDY Z9F 

F7AF 

91B2 

3620 


STA (ZB2),Y 

F7B1 

E69E 

3621 


INC Z9E 

F7B3 

E69F 

3622 


INC Z9F 

F7B5 

DOEE 

3623 


BNE BF7A5 

F7B7 

20D7F7 

3624 

BF7B7 JSR SF7D7 

F7BA 

A969 

3625 


LDA $69 

F7BC 

85AB 

3626 


STA ZAB 

F7BE 

206BF8 

3627 


JSR SF86B 

F7C1 

A8 

3628 


TAY 

F7C2 

68 

3629 


PLA 

F7C3 

8SAE 

3630 


STA ZAE 

F7C5 

68 

3631 


PLA 

F7C6 

85AF 

3632 


STA ZAF 

F7C8 

68 

3633 


PLA 

F7C9 

85C1 

3634 


STA ZCl 

F7CB 

68 

3635 


PLA 

F7CC 

85C2 

3636 


STA ZC2 

F7CE 

98 

3637 


TYA 

F7CF 

60 

3638 

BF7CF RTS 


;save code from A 

;set tape buffer index in XY 

;exit if address invalid 

;save I/O start address on stack 


;save ptr to end of 1/0 area on stack 


;clear cassette buffer with spaces 


;move routine entry code 

;into first byte of cassette buffer 

;nove pointer to I/O area 

;+ i 


;and + 2 

;nove pointer co end of 1/0 area into 

5+ 3 


;and + 4 

;save index into tape buffer 

;initialize file nane index 

;if not at end of file nane 

;move file nane 

;into tape buffer 
;increnent indexés 

;and repeat 

;aet cassette buffer to I/O area 

;set 105 sync patterns 
jwrite block to tape 


;re6tore ptr to beginning of I/O area 


;restore pointer to end of I/O area 
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3640 

;set tape buffer pointer in XT 


3641 

1 


F7D0 A6B2 

3642 

SF7D0 LDX ZB2 

;move X to lov part of tape buffer 

F7D2 A4B3 

3643 

LDY ZB3 

;and Y to high part 

F7D4 C002 

3644 

CPY $02 

;set C lf address ir.valid 

F7D6 60 

3645 

RTS 



3646 

* 



3647 

;set cassette buffer to I/O area 


3648 

J 


F7D7 20D0F7 

3649 

SF7D7 JSR SF7D0 

;set tape buffer address in XY 

F7DA 8A 

3650 

TXA 


F7DB S5C1 

3651 

STA 2CI 

;move to I/O start address 

F7DD 18 

3652 

CLC 


F7DE 69CO 

3653 

ASC $C0 

;add 192 

F7E0 85AE 

3654 

STA ZAE 

;to fora low part of end of I/O are; 

F7E2 98 

3655 

TYA 


F7E3 85C2 

3656 

STA ZC2 

;move high byte also 

F7E5 6900 

3657 

ASC $00 


F7E7 85AF 

3658 

STA ZAF 


F7E9 60 

3659 

RTS 



3660 

» 



3661 

;search tape for a 

file nane 


3662 

* 


F7EA 202CF7 

3663 

SF7EA JSR SF72C 

;read next file beader froo tape 

F7ED B01D 

3664 

BCS BF80C 

;exlt upon error 

F7EF A005 

3665 

LDY $05 

F7F1 849F 

3666 

STY Z9F 

;set temporary index in tape buffer 

F7F3 AOOO 

3667 

LDY $00 


F7F5 849E 

3668 

STY Z9E 

;set temporary-index in file nane 

F7F7 C4B7 

3669 

BF7F7 CFY ZB7 

;if at end of file name 

F7F9 F010 

3670 

BEQ BF80B 

;then name found 

F7FB B1BB 

3671 

LDA (ZBB),Y 

;get character from file nane' 

F7FD A49F 

3672 

LDY Z9F 


F7FF D1B2 

3673 

CMP (ZB2),Y 

;and compare to tape buffer 

F801 D0E7 

3674 

BNE SF7EA 

;if not equal, try next entry from i 

F803 E69E 

3675 

INC Z9E 

;else bump pointers 

F805 E69F 

3676 

INC Z9F 


F807 A49E 

3677 

LDY Z9E 


F809 DOEC 

3678 

BNE BF7F7 

;and repeat test 

F80B 18 

3679 

BF80B CLC 

;clear error flag 

F80C 60 

3680 

BF80C RTS 



3681 

* 



3682 

;add 1 to tape index and test for overfLow 


3683 

> 


F80D 20D0F7 

3684 

SF80D JSR SF7DO 

;get tape buffer pointer in XY 

F810 E6A6 

3685 

INC ZA6 

; and add l 

F812 A4A6 

3686 

LDY ZA6 


F814 COCO 

3687 

CPY $CO 

;set C if end of block 

F816 60 

3688 

RTS 
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3690 jhandie oessages and test cassette buctons for read 

3691 ; 


F817 

202EF8 

3692 

SF817 

JSR 

SF82E 

jtest sense line 

F81A 

FOIA 

3693 


BEQ 

BF836 

;if no buttons depresseci. 

F81C 

A01B 

3694 


LDY 

$ 1B 

jpoint to message Press Play on Tape 

F81E 

202FF1 

3695 

BF81E 

JSR 

BF12F 

;and print message 

F821 

20D0F8 

3696 

BF8Z1 

JSR 

SF8D0 

;test Stop key 

F824 

202EF8 

3697 


JSR 

SF82E 

;test sense line 

F827 

D0F8 

3698 


BNE 

BF821 

jand repeat if no buttons depressed 

F829 

A06A 

3699 


LDY 

$6a 

jpoint to message OK 

F82B 

4C2FF1 

3700 


JWP 

BF12F 

;and print 



3701 

» 






3702 

; test 

sense line 

for a button depressed on cassette 



3703 

» 




F82E 

A910 

3704 

SF82E 

LDA $10 

;set mask for sense line 

F830 

2401 

3705 


BIT 

Z01 

jtest 6510 I/O register 

F832 

DO 02 

3706 


BNE 

BF836 

jexlt with Z clear if nothing depressed 

F834 

2401 

3707 


BIT 

Z01 

jelse set Z 

F836 

18 

3708 

BF836 

CLC 



F837 

60 

3709 


RTS 





3710 

» 






3711 

;set messages and 

test cassette sense line for output 



3712 

; 




F838 

202EF8 

3713 

SF838 

JSR 

SF82E 

;test sense svltches 

F83B 

F0F9 

3714 


BEQ 

BF836 

;if no buttons depressed 

F83C 

A02E 

3715 


LDY 

$2E 

jindex message Press Next & Play... 

F83F 

DODD 

3716 


BNE 

BF81E 

jprint message, test sense and return 



3717 

» 






3718 

jread 

a block from cassette 



3719 

» 




F841 

A900 

3720 

SF841 

LDA 

$00 


F84 3 

8590 

3721 


STA 

290 

;clear ST 

F845 

8593 

3722 


STA 

293 

;set load/verify ewitch to load 

F847 

20D7F7 

3723 


JSR 

SF7D7 

jset tape buffet to I/O area 

F84A 

2017F8 

3724 

SF84A JSE 

SF817 

;handle osgs and test sense for read 

F84D 

B01F 

3725 


BCS 

BF86E 


F84F 

78 

3726 


SEI 


jdisable IRQ 

F850 

A900 

3727 


LDA 

$00 

• 

F852 

85AA 

3728 


STA 

ZAA 

;set gap 

F854 

8SB4 

3729 


STA 

ZB4 

;set no sync establlshed 

F856 

85B0 

3730 


STA 

ZBO 

;aet no special speed correction yet 

F858 

859E 

3731 


STA 

Z9E 

;inltlelize error log Index for pass 1 

F85A 

859F 

3732 


STA 

Z9F 

;and pass 2 

F85C 

859C 

3733 


STA 

Z9C 

;set no byte available yet 

F85E 

A990 

3734 


LDA 

$90 

;set Flag mask 

F860 

A20E 

3735 


LDX 

$0E 

jindex for cassette read IRQ address 

F862 

0011 

3736 


BNE 

BF875 

;JKP 


ZOO 





3738 

;vrite a block to 

cassette 




3739 

f 



i 


F864 

20D7F7 

3740 

SF864 

JSR 

SF7D7 

;initialize tape buffer pointer 


F867 

A914 

3741 

SF867 

IDA 

$14 



F869 

85AB 

3742 


STA 

2AB 

; 20 sync patterns 


F86B 

2038F8 

3743 

SF86B 

JSR SF838 

;test sense .and display msgs for output 

F86E 

B06C 

3744 

BF86E 

BCS 

2F8DC 



F870 

78 

3745 


SEI 




F871 

A982 

3746 


IDA 

$82 

;mask for ICR1 to honor TB1 


F873 

A208 

3747 


LDX $08 

;IRQ index for cassette urite, pert 

1 



3748 

t 







3749 

; common code for 

cassette read & urite 




3750 

; 





F875 

A07F 

3751 

BFB75 

LDY 

$7F 



F877 

8C0DDC 

3752 


STY 

XDCOD 

jclear any pendlng ioasks io XCR1 


F87A 

8D0DDC 

3753 


SIA 

XDCOD 

;then set oask for TB1 


F87D 

ADOEDC 

3754 


IDA 

XDCOE 



F880 

0919 

3755 


ORA 

$19 

;+ force load, one sbot and IBI to 

CRAI 

F882 

8D0FDC 

3756 


STA 

XDCOF 

;to fon» CRB1 


F885 

2991 

3757 


AND 

$91 



F887 

8DA202 

3758 


.STA 

X02A2 

;and CREI activity register 


F88A 

20A4F0 

3759 


JSR 

SF0A4 

;condition flag bit in ICR2 


F88D 

AD UDO 

3760 


LDA 

XDOU 



F890 

29EF 

3761 


AND 

$EF 



F892 

8D11D0 

3762 


STA 

XDOU 

;disable thè screen 


F895 

AD1403 

3763 


IDA 

X0314 

;save standard IRQ vector 


F898 

8D9F02 

3764 


STA 

X029F 



F89B 

ADI 5 03 

3765 


IDA 

X0315 



F89E 

8DA002 

3766 


STA 

X02A0 



F8A1 

20BDFC 

3767 


JSR 

SFCBD 

;set nev IRQ for cassette depending 

on ; 

F8A4 

A902 

3768 


LDA 

$02 



F8A6 

85BE 

3769 


STA 

ZBE 

;select phase 2 


F8A8 

2097FB 

3770 


JSR 

SFB97 

;inltialize cassette I/O variables 


F8AB 

A501 

3771 


LDA 

201 



F8AD 

291F 

3772 


AND 

S1F 



F8AF 

8501 

3773 


STA 

Z01 

,-start cassette notor 


F8B1 

8SC0 

3774 


STA 

ZCO 

;set tape motor interlock 


F8B3 

A2FF 

3775 


LDX 

$FF 



F8B5 

AOFF 

3776 

BF8B5 

LDY 

$FF 



F8B7 

88 

3777 

BF8B7 

DEY 




F8B8 

DOFD 

3778 


BUE 

BF8B7 

;delay >3 seconda 


F8BA 

CA 

3779 


DEX 




F8BB 

D0F8 

37 80 


BNE 

BF8B5 



F8BD 

58 

3781 


CU 




F8BE 

ADA002 

3782 

JF8BE 

LDA 

X02A0 

;test high byte of IRQ save area 


F8C1 

CD1503 

3783 


CMP 

X0315 

;to detersine if end of 1/0 


F8C4 

18 

3764 


CLC 




F8C5 

F015 

3785 


BEQ 

BF8DC 

;exlt if so 


F8C7 

20D0F8 

3786 


JSR 

SF8D0 

;else test Stop key 


F8CA 

20BCF6 

3787 


JSR 

BF6BC 

;scsn keyboard 


FBCD 

4CBEF8 

3788 


JMP 

JF8BE 

;repeat 
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3790 

; bandi 

e Stop key 

during cassette operations 



3791 

j 




F8D0 

20E1FF 

3792 

SFSDO 

JSR 

SFFEl 

-.test Stop key 

F8D3 

18 

3793 


CLC 



F8D4 

POOL 

3794 


T *T" 

1 -?'! 


F8D6 

2093FC 

3795 


JSk 

SF C95 

;i£ depressed, stop cassette operatici 

F8D9 

38 

3796 


SEC 



F8DA 

68 

3797 


PLA 


;delete own return address 

F8DB 

68 

3798 


PLA 



F8D0 

/.QOn 

9704 

FF8DC 

T r> A 

$00 


F8DE 

8DA002 

3800 


STA 

X02aO 

;elear high byte o i IKu save area 

F8E1 

60 

3801 

BF8E1 

RTS 





3802 

; 






3803 

; schedule 

CIA1 Timer A depending in parmeter in X 



3804 

j 




F8E2 

86B1 

3805 

SF8E2 

STX 

ZB! 

;save entry paramercr 

FSE4 

A5B0 

3806 


EDA 

ZBO 

;get speed correction 

F8E6 

OA 

3807 


ASL 

A 

;* 2 

F8E7 

OA 

3808 


ASL 

A 

;* 4 

F8E8 

18 

3809 


CLC 



F8E9 

65B0 

3810 


ADC 

ZBO 

;add speed correction 

F8EB 

18 

3811 


CLC 



F8EC 

65B1 

3812 


ADC 

ZB1 

;and parameter 

F8EE 85EI 

3813 


STA 

ZB1 

;save low order 

F8F0 

A9Q0 

3814 


EDA 

$00 


F8F2 

24B0 

3815 


BIT 

ZBO 

;if speed ccrrectior Is positive 

F8F4 

3001 

3816 


BMI 

BF8F7 


rsrf 


3»i 7 


FOT 

A 

hi^h in A 

F8F7 

06B1 

3818 

BF8F7 

ASL 

ZB1 

- 

F8F9 

2A 

3819 


ROL 

A 

;* 2 

F8FA 06E1 

3820 


ASL 

ZB1 


F8FC 

2A 

3821 


ROL 

A 

;* * 

F8FD 

AA 

3822 


TAX 



F8FE 

AD06DC 

3823 

BF8FE 

LDA XDC06 

;vait until no chance of 

F901 

C916 

3824 


CMP 

$16 

;TBL1 changing 

F903 

90F9 

3825 


tee 

BF8FE 

;vhlle It stili must bc read 

F905 

65B1 

3826 


ADC 

ZB1 

;add low order offset to TBL1 

F907 

6D04DC 

3827 


STA 

XDC04 

;and store in TALI 

F90A 

SA 

3828 


TXA 



F90B 6D07DC 

3829 


ADC XDC07 

;add high order offset to TEU1 

F90E 8D05DC 

3830 


STA XDC05 

;and store In TABI 

F911 

ADA202 

3831 


LDA X02A2 


F914 

8D0EDC 

3832 


STA 

XDCOE 

;set CRAI from CRB1 actlvity register 

F917 

8DA402 

3833 


STA 

X0ZA4 

end save It 

F91A 

ADODDC 

3834 


LDA 

XDCOD 


F91B 

2910 

3835 


AND $10 


F91F 

F009 

3836 


BEQ 

BF92A 

;if Flag bit ls not set, 

F921 

A9F9 

3837 


LDA 

>BF92A 

;set exit address on stack 

F923 

48 

3838 


PHA 



F924 

k l .:i 

:c:-' 


•U/ 

•BF92A 


F926 

48 

384C 


PtiA 



F927 

4C43FF 

3841 


JHP 

JFF43 

;and simulate an IRQ 

F92A 

58 

3842 

EFS2A 

CL1 


;else allou IRQ and er.it 

F92B 

60 

3843 


RTS 
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routine 



3845 

; cassette 

reed IRQ 


3846 

* 


F92C 

3847 WF92C 

- 

* 

F92C AE07DC 

3848 

BF92C LDX 

XDC07 

F92F AOFF 

3849 


LDY 

$FF 

F931 98 

3850 


ITA 


F932 ED06DC 3851 


SBC 

XDC06 

F935 EC07DC 3852 


CPX 

XDC07 

F938 D0F2 

3853 


BNE 

BF92C 

F93A 86B1 

3854 


STX 

ZB1 

F93C AA 

3855 


TAX 


F93D 8C06DC 

3856 


STY 

XDC06 

F940 8C07DC 

3857 


STY 

XDC07 

F943 A919 

3858 


EOA 

$19 

F945 8D0FDC 

3859 


STA 

XDCOF 

F948 AD0DDC 

3860 


LDA 

XDC0D 

F94B 8DA302 

3861 


STA 

X02A3 

F94E 98 

3862 


TYA 


F94F E5B1 

3863 


SBC 

ZB1 

F951 86B1 

3864 


STX 

ZB1 

F953 4A 

3865 


LSR 

A 

F954 66B1 

3866 


ROR 

ZB1 

F956 4A. 

3867 


LSR 

A 

F957 66B1 

3868 


ROR 

ZB1 

F959 A5B0 

3869 


LDA 

ZB0 

F95B 18 

3870 


CLC 


F95C 693C 

3871 


ABC 

$3C 

F95E C581 

3872 


CHP 

ZB1 

F960 B04A 

3873 


BCS 

BF9AC 

F962 A69C 

3874 


LDX 

Z9C 

F964 F003 

3875 


BEQ 

BF969 

F966 4C60FA 

3876 


JMF 

JFA60 


3877 

» 



F969 A6A3 

3878 

BF969 

LDX 

ZA3 

F96B 301B 

3879 


EHI 

BF988 

F96D A200 

3880 


LDX 

$00 

F96F 6930 

3881 


ABC 

$30 

F971 65B0 

3882 


ABC 

ZBO 

F973 C5B1 

3883 

' 

CMP 

ZB1 

F975 B01C 

3884 


BCS 

BF993 

F977 E8 

3885 


INX 


F978 6926 

3886 


ADC 

$26 

F97A 65B0 

3887 


ABC 

ZBO 

F97.C C5B1 

3888 


Off 

ZB1 

F97E B017 

3889 


BCS 

BF997 

F980 692C 

3890 


ABC 

$2C 

F982 65B0 

3891 


ADC 

ZBO 

F984 C5BL 

3892 


CMP 

ZBI 

F986 9003 

3893 


BCC 

BF98B 

F988 4C10FA 

3894 

BF988 

JMP 

JFA10 


3895 

■ 



F98B A5B4 

3896 

BF98B 

LDA 

ZB4 

F98D F01D 

3897 


BEQ 

BF9AC 

F98F 85A8 

3898 


STA 

ZA8 

F991 D019 

3899 


BNE 

BF9AC 

F993 E6A9 

3900 

BF993 

INC 

ZA9 

F995 B002 

3901 


BCS 

BF999 

F997 C6A9 

3902 

BF997 

DEC 

ZA9 

F999 38 

3903 

BF999 

SEC 


F99A E913 

3904 


SBC 

$13 


;get TBH1 

;and compìement of TBL1 
;(time elapsed) 

;i£ high byte not steady, 
jrepeat 

;else save high byte 

; reset TBL1 to maximum 
;ditto TBH1 

; force load, one-shot and Timer B 
;into CRB1 

;save ICR1 

; completisene high byte 
;save lo» byte 
;elapsed tlme In A, ZB1 
;/ 2 

;/ 4 

;get speed correction 

;+ 240 mlcroseconds 
;if cycle shorter 
; dismiss 

;if byte available 
;receive it 

;test bit count and if beyond last bit, 

;do end of byte 

;assume bit value of 0 

;add 432 mlcroseconds 

;+ 2 * speed correction 

;lf cycle .shorter 

;record a 0 

; assume bit value of 1 
;get 584 mlcroseconds 
;+ 3 * speed correction 
;lf cycle shorter 
;record a 1 
;get 760 ricictcccrét 
;+ 4 * speed correction 
;lf cycle shorter 

;go do end of byte 

;lf sync established 

;set erroneous bits 

;for a 0, lncrement 0/1 balance 

;for a 1, decrement O/l balance 

;0/l cutoff level 
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F99C 

E5B1 

3905 


SBC 

ZB1 

F99E 

6592 

3906 


ADC 

Z92 

F9A0 

8592 

3907 


STA 

Z92 

F9A2 

A5A4 

3908 


LDA 

ZA4 

F9A4 

4901 

3909 


E0R 

$01 

F9A6 

85A4 

3910 


STA 

ZA4 

F9A8 

F02B 

3911 


BEQ 

BF9D5 

F9AA 

86D7 

3912 


STX 

ZD7 

F9AC 

A5B4 

3913 

BF9AC 

LDA 

ZB4 

F9AE 

F022 

3914 


BEQ 

BF9D2 

F9B0 

ADA302 

3915 


LDA 

X02A3 

F9B3 

2901 

3916 


AM) 

$01 

F9B5 

D005 

3917 


BNE 

BF9BC 

F9B7 

ADA402 

3918 


LDA 

X02A4 

F9BA 

0016 

3919 


BNE 

BF9D2 

F9BC 

A900 

3920 

BF9BC 

LDA 

$00 

F9BE 

8 5 A4 

3921 


STA 

ZA4 

F9C0 

8DA402 

3922 


STA 

X02A4 

F9C3 

A5A3 

3923 


LDA 

ZA3 

F9C5 

1030 

3924 


BFL 

BF9F7 

F9C7 

30BF 

3925 


BUI 

BF988 

F9C9 

A2A6 

3926 

BF9C9 

LDX 

$A6 

F9CB 

20E2F8 

3927 


JSR 

SF8E2 

F9CE 

A59B 

3928 


LDA 

Z9B 

F9D0 

D0B9 

3929 


BNE 

BF98B 

F9D2 

4CBCFE 

3930 

BFSD2 

JKP 

JFEBC 



3931 

» 



F9D5 

A592 

3932 

BF9D5 

LDA 

Z92 

F9D7 

F007 

3933 


BEQ 

BF9E0 

F9D9 

3003 

3934 


BMT 

BF9DE 

F9DB 

C6B0 

3935 


DEC 

ZB0 

F9DD 

2C 

3936 


.BY 

$2C 

F9DE 

E6BQ 

3937 

BF9DE 

INC 

ZBO 

F9E0 

A900 

3938 

BF9E0 

LDA 

$00 

F9E2 

8592 

3939 


STA 

Z92 

F9E4 

E4D7 

3940 


CPX 

ZD7. 

F9E6 

DOOF 

3941 


BNE 

BF9F7 

F9E8 

8A 

3942 


TXA 


F9E9 

OOAO 

3943 


BNE 

BF98B 

F9EB 

A5A9 

3944 


LDA 

ZA9 

F9ED 

30BD 

3945 


BHX BF9AC 

F9EF 

C910 

3946 


CMP $10 

F9F1 

90B9 

3947 


BCC BF9AC 

F9F3 

8596 

3948 


STA Z96 

F9F5 

B0B5 

3949 


BCS BF9AC 

F9F7 

8A 

3950 

BF9F7 

TXA 


F9F8 

459B 

3951 


E0R Z9B 

F9FA 

859B 

3952 


STA Z9B 

F9FC 

A5B4 

3953 


LDA ZB4 

F9FE 

F002 

3954 


BEQ BF9D2 

FAOO 

C6A3 

3955 


DEC 

ZA3 

FA02 

30C5 

3956 


BUI 

BF9C9 

FA04 

46D7 

3957 


LSR ZD7 

FA06 

66BF 

3958 


ROR 

ZBF 

FA08 

A20A 

3959 


LDX 

$DA 

FAOA 

20E2F8 

3960 


JSR SF8E2 

FAOD 

4CBCFE 

3961 


JMP 

JFEBC 



3962 

t 



FA10 

A596 

3963 

JFA10 

LDA Z96 

FAI 2 

F004 

3964 


BEQ BFA18 


cycle wldth 

;accumulated for speed correctlon 

;fllp cycle indieatlon 

;lf flrst cycle, 

;save bit value 
;if no sync yet 
;return from IRQ 
;if 1CR1 aaak 


;and last CRAI mask eho WS no TA1 flag 
;exit ‘fron IRQ 

jclear cycle eount 

;and last CRAI aaak 

;lf bit eount lndlcates end of byte, 

;go do end of byte 

; schedule timer 

;if parity calculated does not match 
;aet erroneous bit flag 
'.exit from IRQ 

;i£ second cycle, 

;check accumulated over/under cime 


;sklp next lnstructioc 

;adapt speed correctlon accordingly 

;reset accumulated over/under time 
;lf 2nd cycle ■ compleaent of cycle 1 
;include bit 

;if tuo 0 cycles 
;and 0/1 balance 

;at least 16 "0* cycles extra 

;set sync detected 


;calculate parity 

;if no sync yet, 

;exit 

•decrement pendlng bit eount 
;after last bit, check parity 
;include bit 
;ln byte belng read 

;schedule timer 
;exlt from IRQ 

;lf sync detecced 
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FA14 A5B4 

3965 


LDA 

ZB4 

FA16 F007 

3966 


BEQ 

BFA1F 

FAI8 A5A3 

3967 

BFA18 

LDA 

ZA3 

FA1A 3003 

3968 


BKL 

BFA1F 

FA1C 4C97F9 

3969 


JMP 

BF997 


3970 

1 



FA1F 46B1 

3971 

BFA1F 

LSR 

ZB1 

FA21 A993 

3972 


LDA 

$93 

FA23 38 

3973 


SEC 


FA24 E5B1 

3974 


SBC 

ZB1 

FA26 65BO 

3975 


ADC 

ZBO 

FA28 0A 

3976 


ASL 

A 

FA29 AA 

3977 


XAX 


FA2A 20E2F8 

3978 


JSR 

SF8E2 

FA2D E69C 

3979 


INC 

Z9C 

FA2F A5B4 

3980 


LDA 

ZB4 

FA31 D011 

3931 


BNE 

BFA44 

FA33 A596 

3982 


LDA 

Z96 

FA35 F026 

3983 


BEQ 

BFA5D 

FA37 85A8 

3984 


STA 

ZA8 

FA39 A900 

3985 


LDA 

$00 

FA3B 8596 

3986 


STA 

Z96 

FA3D A981 

3987 


LDA 

$81 

FA3F 8D0DDC 

3988 


STA 

XDCOD 

FA42 85B4 

3989 


STA 

ZB4 

FA44 A596 

3990 

BFA44 

LDA 

296 

FA46 85B5 

3991 


STA 

ZB5 

FA48 F009 

3992 


BEQ 

BFA53 

FA4A A900 

3993 


LDA 

$00 

FA4C 85B4 

3994 


STA 

ZB4 

FA4E A901 

3995 


LDA 

$01 

FA50 8D0DDC 

3996 


STA 

XDCOD 

FA53 A.*13 

;tt; 

■EI/12 

>ir/ 

211 

FA55 65BD 

3998 


STA 

ZBD 

FA57 A5A8 

3999 


LDA 

ZA8 

FA59 05A9 

4000 


ORA 

ZA9 

FA5B 85B6 

4001 


STA 

ZB6 

FA5D 4CBCFE 

4002 

BFA5D JMP 

JFEBC 


;and not yet established 

;or last bit done 

jallou byte reception 

;compute nev speed correctìon value 


; schedule timer 
;Indicate byte available 
;if nc llil il itJttlJr.i. iti, 

;but sync detected 

;set error blts 

;clear sync detected 
;set TAi bit 
;in ICR1 

;set sync established 
;move sync status 
;to saved sync status 

;lf not detected, 

;indicate sync not established 

;clear TA mask in ICR1 
save byte read 


accumulate possible errore 
;exit from IRQ 
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froa cassette 


4004 jrecelve next byte 

4005 ; 


FA60 

2097FB 

4006 

JFA60 

JSR 

SFB97 

FA63 

859C 

4007 


STA 

Z9C 

FA65 

A2DA 

4008 


LDX 

$DA 

FA67 

20E2F8 

4009 


JSR 

SF8E2 

FA6A 

A5BE 

4010 


LSA 

ZBE 

FA6C 

F002 

4011 


BEQ 

BFA70 

FA6E 

85A7 

4012 


STA 

ZA7 

FA70 

A90F 

4013 

BFA70 

LBA 

$0F 

FA72 

24AA 

4014 


BIT 

ZAA 

FA74 

1017 

4015 


BFL 

BFA8D 

FA76 

A5B5 

4016 


LSA 

ZB5 

FA78 

DO OC 

4017 


BNE 

BFA86 

FA7A 

A6BE 

4018 


LDX 

ZBE 

FA7C 

CA 

4019 


DEX 


FA7D 

D00B 

4020 


BNE 

BFA8A 

FA7F 

A908 

4021 


LSA 

$08 

FA81 

201CFE 

4022 


JSR 

SFE1C 

FA84 

D004 

4023 


BNE 

BFA8A 

FAS6 

A900 

4024 

BFA86 

LDA 

$00 

FA88 

85AA 

4025 


STA 

ZAA 

FA8A 

4CBCFE 

4026 

BFA8A 

JMP 

JFEBC 



4027 

! 



FA8D 

7031 

4028 

BFA8D 

BVS 

BFACO 

FA8F 

D018 

4029 


BNE 

BFAA9 

FA91 

A5B5 

4030 


LDA 

ZB5 

FA93 

S0F5 

4031 


BNE 

BFA8A 

FA95 

A5B6 

4032 


LDA 

ZB6 

FA97 

D0F1 

4033 


BNE 

BFA8A 

FA99 

A5A7 

4034 


LDA 

ZA7 

FA9B 

4A 

4035 


LSR 

A 

FA9C 

A5BD 

4036 


LDA 

ZBD 

FA9E 

3003 

4037 


EHI 

BFAA3 

FAAO 

9018 

4038 


BCC 

BFABA 

FAA2 

18 

4039 


CLC 


FAA3 

BOI 5 

4040 

BFAA3 

BCS 

BFABA 

FAAS 

290F 

4041 


AND 

$0F 

FAA7 

85AA 

4042 


STA 

ZAA 

FAA9 

C6AA 

4043 

BFAA9 

DEC 

ZAA 

FAAB 

D0DD 

4044 


BNE 

BFA8A 

FAAD 

A940 

4045 


LDA 

$40 

FAAF 

S5AA 

4046 


STA 

ZAA 

FAB1 

208EFB 

4047 


JSR 

SFB8E 

FAB4 

A900 

4048 


LDA 

$00 

FAB6 

85AB 

4049 


SIA 

ZAB 

FAB8 

FOCO 

4050 


BEQ 

BFA8A 

FABA 

A980 

4051 

BFABA 

LDA 

$80 

FABC 

85AA 

4052 


STA 

ZAA 

FABE 

D0CA 

4053 


BNE 

BFABA 

FAC0 

A5B5 

4054 

BFAC0 

LDA 

ZB5 

FAC2 

F00A 

4055 


BEQ 

BFACE 

FAC4 

A904 

4056 


LDA 

$04 

FAC6 

201CFE 

4057 


JSR 

SFE1C 

FAC9 

A900 

4058 


LDA 

$00 

FACB 

4C4AFB 

4059 


JMP 

JFB4A 



4060 

> 



FACE 

20D1FC 

4061 

BFACE 

JSR 

SFCD1 

FASI 

9003 

4062 


BCC 

BFAD6 

FAD3 

4C48FB 

4063 


JMP 

JFB48 


;initlalize cassette I/O variables 
;indicate no byte available yet 

; schedule Timer 

;if flrst or second phase being read, 
;copy Into actual phase 
;lf data beyond area 
;and In second hall 


;lndlcate Long Block in ST 

;and exit 

;eet gap 
; er.lt from IRQ 

;if data, go collect 

;lf header, decrement count 

;lf gap and byte valid 

;and no erroneons bits 

;get actual phase 
;bit 7 of byte 


;must correspond to header phase 

;set header count 
;decrement header count 
;at end of header, 

;set data 

;move beglnnlng of 1/0 area lnto ZAC/D 

;clear checksiaa 

;if lllegal header 
;set Data After Area 

;lf data, but data not valid 

;aet Short Block Error 
;end indicate in ST 

;do end of block 

;if at end of area, 

;set data after area 
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' 

4064 

1 


FAD6 A6A7 

4065 

BFAD6 

LDX ZA7 

FAD8 CA 

4066 


DEX 

FAD9 F02D 

4067 


BEQ BFB08 

FAJDE A593 

4068 


LDA Z93 

FADD F00C 

4069 


BEQ BFAEB 

FADF A000 

4070 


LDX $00 

FAE1 A3BD 

4071 


LDA ZBD 

FAE3 D1AC 

4072 


CMP (ZAC),Y 

FAE5 F004 

4073 


BEQ BFAEB 

FAE7 A901 

4074 


LDA $01 

FAE9 85E6 

4075 


STA ZB6 

FAEB A5B6 

4076 

BFAEB 

LDA ZB6 

FAED F04B 

4077 


BEQ BFB3A 

FAEF A23D 

4078 


LDX $3D 

FATI E49E 

4079 


CPX Z9E 

FAF3 903E 

4080 


BCC BFB33 

FAF5 A69E 

4081 


LDX Z9E 

FAF7 ASAD 

4082 


LDA ZAD 

FAF9 9D0101 

4083 


STA X0100+1.X 

FAFC A5AC 

4084 


LDA ZAC 

FAFE 9D0001 

4085 


STA X0100.X 

FB01 E8 

4086 


INX 

FB02 E8 

4087 


INX 

FB03 869E 

4088 


STX Z9E 

FB05 4C3AFB 

4089 


JMP BFB3A 


4090 

a 


FB08 A69F 

4091 

BFB08 

LDX Z9F 

FBOA E49E 

4092 


CPX Z9E 

FBOC F03 .* 

id~ 


ìlC'llHs 

FBOE A5AC 

4094 


LDA ZAC 

FB10 DDOOOl 

4095 


CMP X0100.X 

FB13 D02E 

4096 


BNE BFB43 

FB15 A3AD 

4097 


LDA ZAD 

FB17 DD0101 

4098 


CMP XOLOCH-l.X 

FBIA D027 

4099 


BNE BFB43 

FB1C E69F 

4100 


INC Z9F 

FB1E E69F 

4101 


INC Z9F 

FB20 A593 

4102 


LDA Z93 

FB22 FOOB 

4103 


BEQ BFB2F 

FB24 A5BD 

4104 


LDA ZBD 

FB26 AOÒO 

4105 


LDY $00 

FB28. D1AC 

4106 


CMP (ZAC),Y 

FB2A F017 

4107 


BEQ BFB43 

FB2C C8 

4108 


INI 

-FB2D 84 B6 

4109 


STY ZB6 

FB2F A5B6 

4110 

BFB2F 

LDA ZB6 

FB31 F007 

4111 


BEQ BFB3A 

FB33 A910 

4112 

BFB33 

LDA $10 

FB35 201CFE 

4113 


JSR SFE1C 

FB38 D009 

4114 


BNE BFB43 

FB3A A593 

4115 

BFB3A 

LDA Z93 

FB3C D005 

4116 


BNE BFB43 

FB3E A8 

4117 


TAY 

FB3F A5BD 

4118 


LDA ZBD 

FB41 91AC 

4119 


STA (ZAC),Y 

FB43 20DBFC 

4120 

BFB43 

JSR SFCDB 

FB46 D043 

4121 


BNE BFB8B 

FB48 A980 

4122 

JFB48 

LDA $80 

FB4A 85AA 

4123 

JFB4A 

STA ZAA 


;lf actual phase * 1 
;do error correctlon 
;if Verify pass 

;compare byte to current character 

;set error flag upon mismatch 
;if erróre 

;and error log Cable le noe at maximum 

; score pointer Into error log cable 

;set neu error log index 

;if pass 2 error log index at maximum, 

Imo correctlon posslble 

;else 

;check for match in error log Cable 

;lf so, bump pass 2 error log index 
;if Verify pass 

; compare byte to current character 
;set error if not equal 

;lf stili sn error 

;set Dnrecoverable Read Error in ST 
;if Load, 

;score byte 
;incremenc address 
;and exit 

;set data after area 
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FB4C 

78 . 

4124 


SEI 


PB4D 

A201 

4125 


LDX 

$01 

FB4F 

SEODDC 

4126 


STX 

XDC0D 

FB52 

AEODDC 

4127 


LDX 

XDC0D 

FB55 

A6BE 

4128 


LDX 

ZBE 

FB57 

CA 

4129 


DEX 


FB58 

3002 

4130 


BM1 

BFB5C 

FB5A 

86BE 

4131 


STX 

ZBE 

FB5C 

C6A7 

4132 

BFB5C 

DEC 

ZA7 

FB5E 

F008 

4133 


BEQ 

BFB68 

FB60 

A59E . 

4134 


LDA 

Z9£ 

FB62 

D027 

4135 


BNE 

BFB8B 

FB64 

8SBE 

4136 


STA 

ZBE 

FB66 

F023 

4137 


BEQ 

BFB8B 

FB68 

2093FC 

4138 

BFB68 

JSR 

SFC93 

FB6B 

208EFB 

4139 


JSB 

SFB8E 

FB6E 

A000 

4140 


LDY 

$00 

FB70 

84AB 

4141 


STX 

ZAB 

FB72 

BIAC 

4142 

BFB72 

LDA 

{ ZAC) ,Y 

FB74 

4 5 AB 

4143 


EOE 

ZAB 

FB76 

85AB 

4144 


STA 

ZAB 

FB78 

20DBFC 

4145 


JSR 

SFCDB 

FB7B 

20D1FC 

4146 


JSR 

SFCD1 

FB7E 

90F2 

4147 


BCC 

BFB72 

FB80 

A5AB 

4148 


LDA 

ZAB 

FB82 

45BD 

4149 


EOR 

ZBD 

FB84 

F005 

4150 


BEQ 

BFB8B 

FB86 

A920 

4151 


LDA 

$20 

FB88 

201CFE 

4152 


JSR 

SFE1C 

FB8B 

4CBCFE 

4153 

BFB8B JMP 

JFEBC 


;clear TA mask from ICR1 
;if phase 1 or 2 

jdecrement phase 
jdecrement actual phase 
;if uot end of block 
;and no errors encountered 
;skip phase 

;if end of block., 

;svitch from cassette to default IRQ 
;move beginning of 1/0 area into ZAC/D 

;clear checksum value 
;compute checksum 


;bump address 

;check for end of block 


;lf computed checksum does not match. 


;set Checksum Error in ST 
; return from IRQ 
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4155 

;move save/load address into ZAC/D 


4156 

» 


FB8E A5C2 

4157 

SFB8E LDA ZC2 

;nove high byte of save/load pointer 

FB90 85AD 

4158 

SIA ZAD 


FB92 A5C1 

4159 

LDA ZC1 

;then low byte 

FB94 85AC 

4160 

STA ZAC 


FB96 60 

4161 

RTS 



4162 

> 



4163 

;lnltlalize cassette 

! read/vrite varlables 


4164 

» 


FB97 A908 

4165 

SFB97 LDA $08 

- 

FB99 85A3 

4166 

STA ZA3 

;set bit count • 

FB9B A900 

4167 

LDA $00 


FB9D 85A4 

4168 

STA ZA4 

;clear cycle count 

FB9F 85A8 

4169 

SIA ZA8 

;dear byte-start cycle 1 

FBA1 859B 

4170 

STA Z9B 

;clear parity bit 

FBA3 85A9 

4171 

STA ZA9 

;clear byte start cycle 2 

FBA5 60 

4172 

RTS 



4173 

i 



4174 

; schedule XCR1 Timer B and invert cassette urite line 


4175 

» 


FBA6 A3BD 

4176 SFBA6 LEA ZBD 


FBA8 4A 

4177 

LSR A 

;move bit 0 of current character into 

FBA9 A960 

4178 

LDA $60 

;start with value for a 0 

FBAB 9002 

4179 

BCC BFBAF 


FBAD A9B0 

4180 

SFBAD LDA $B0 

;lf a 1 to be sent, set value for a 1 

FBAF A200 

4181 

BFBAF LDX $00 


FBB1 8D06DC 4182 

SFBB1 STA XDC06 

;TBL1 set to 0 

FBB4 8E07DC 4183 

STX XDC07 

;TBH1 set to $60/$B0 

FBB7 ADODDC 4184 

LDA XDCOD 


FBBA A919 

4185 

LDA $19 

;force load, one-shot and Timer B 

FBBC 8D0FDC 4186 

STA XDCOF 

;into ORBI 

FBBF A501 

4187 

LDA Z01 


FBC1 4908 

4188 

EOR $08 

;invert polarlty of cassette urite bit 

FBC3 8501 

4189 

STA Z01 


FBC5 2908 

4190 

AND $08 

;indicate polarity in A and Z 

FBC7 60 

4191 

RTS 

■ 
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4193 ;IRQ routine for cassette urite, part 2 (at FBCD) 

4194 ; 

4195 ;used for byte start cycle and each half cycle per data bit 




4196 

» 


FBC8 

38 

4197 

BFBC8 

SEC 

FBC9 

66B6 

4198 


R0K ZB6 

FBCB 

303C 

4199 


BUI BFC09 

FBCD 

A5A8 

4200 

WPBCD 

LDA ZA8 

FBCF 

DO 12 

4201 


BNE BFBE3 

FBDl 

A910 

4202 


LDA $10 

FBD3 

A201 

4203 


LDX $01 

FBD5 

20B1FB 

4204 


JSR SFBB1 

FBD8 

D02F 

4205 


BNE BFC09 

FBDA 

E6A8 

4206 


INC ZA8 

FBDC 

A5B6 

4207 


LDA ZB6 

F8DE 

1029 

4208 


BPL BFC09 

PBEO 

4C57FC 

4209 


JMP JFC57 



4210 

9 


FBE3 

A5A9 

4211 

BFBE3 

LDA ZA9 

FBE5 

D009 

4212 


BNE BFBFO 

FBE7 

20ADFB 

4213 


JSR SFBAD 

FBEA 

D01D 

4214 


BNE BFC09 

FBEC 

E6A9 

4215 


INC ZA9 

FBEE 

D019 

4216 


BNE BFC09 

FBFO 

20A6FB 

4217 

BFBF0 

JSR SFBA6 

FBF3 

D014 

4218 


BNE BFC09 

FBF5 

A5A4 

4219 


LDA ZA4 

FBF7 

4901 

4220 


E0R $01 

FBF9 

85A4 

4221 


SIA ZA4 

FBFB 

FOOF 

4222 


BEQ BFC0C 

FBFD 

A5BD 

4223 


LDA ZBD 

FBFF 

4901 

4224 


E0R $01 

FC01 

85BD 

4225 


SIA ZBD 

FC03 

2901 

4226 


AND $01 

FC05 

459B 

4227 


EOR Z9B 

FC07 

859B 

4228 


STA Z9B 

FC09 

4CBCFE 

4229 

BFC09 

JMP JFEBC 



4230 

9 


FCOC 

46BD 

4231 

BFC0C 

LSR ZBD 

PCOE 

C6A3 

4232 


DEC ZA3 

FC10 

A5A3 

4233 


LDA ZA3 

FC12 

F03A 

4234 


BEQ BFC4E 

FC14 

10F3 

4235 


BPL BFC09 

FC16 

2097FB 

4236 

BFC16 

JSR SFB97 

FC19 

58 

4237 


CLI 

FC1A 

A5A5 

4238 


LDA ZA5 

FC1C 

F012 

4239 


BEQ BFC30 

FC1E 

A200 

4240 


LDX $00 

FC20 

86D7 

4241 


STX ZD7 

FC22 

C6A5 

4242 


DEC ZA5 

FC24 

A6BE 

4243 


LDX ZBE 

FC26 

E002 

4244 


CPX $02 

FC28 

D002 

4245 


BNE BFC2C 

FC2A 

0980 

4246 


ORA $80 

FC2C 

85BD 

4247 

BFC2C 

STA ZBD 

FC2E 

D0D9 

4248 


BNE BFC09 

FC30 

20D1FC 

4249 

BFC30 

JSR SFCD1 

FC33 

900A 

4250 


BCC BFC3F 

FC35 

D091 

4251 


BNE BFBC8 

FC37 

E6AD 

4252 


INC ZAD 


;set current byte pointer ■> 32K 
; JMP 

;if byte start cycle 1 


;set AX to 272 

;invert output and schedule timer 
;lf output is zero again 
; indicate cycle 1 finlshed 
;if current byte pointer »> 32K 

;sultch to other cassette urite IRQ 

;lf byte start cycle 2 

;invert output and schedule timer 
;if output is zero again 
;increment count for 2 cycles per bit 

;invert output and schedule timer 
;lf output is zero again 

jincreaent count for 2 cycles per bit 

;if cycle la complete 

;invert data bit for next cycle 

;add bit 
;to parity 

;and exit IRQ 

;if 2 cycles done, 

;decresnent bit count 

;after byte, send parity bit 
;during byte, send next bit 
;at end of byte, reset variables 
;allou IRQ 

;if block header count 
;sot zero 

;clear checksuo 
;decrement header count 

;if phase 2 

;add 128 to count 

;and aend count as data for header 

; return from IRQ 

;if end of data reached 

;do next byce 

;lf beyond, uaste rime 

;if at end, set pointer beyond end 
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FC39 

A5D7 

4253 

LDA 

ZD7 

FC3B 

858D 

4254 

STA 

ZBD 

FC3D 

BOCA 

t:y. 

I CI 

IUCS 

FC3F 

AOOO 

4256 BFC3F 

LDY 

$00 

FC41 

B1AC 

4257 

LDA 

(2AC),Y 

FC43 

8SBD 

4258 

STA 

ZBD 

FC45 

45D7 

4259 

EOR 

ZD7 

FC47 

85D7 

4260 

STA 

ZD7 

FC49 

20DBFC 

4261 

JSR 

SFCDB 

FC4C 

DOBB 

4262 

BHE 

BFC09 

FC4E 

A59B 

4263 BFC4E 

LDA 

Z9B 

FC50 

4901 

4264 

EOR 

SOI 

FC52 

85BD 

4265 

STA 

ZBD 

FC54 

4CBCFE 

4266 BFC54 

JMP 

JFEBC 



4267 ; 



FC57 

C6SE 

4268 JFC57 

DEC 

ZBE 

FC59 

D003 

4269 

BUE 

BFC5E 

FC5B 

20CAFC 

4270 

JSR 

SFOCA 

FC5E 

A950 

4271 BFC5E 

LDA 

$50 

FC60 

85A7 

4272 

STA 

ZA7 

FC62 

A208 

4273 

LDX 

$08 

FC64 

78 

4274 

SEI 


FC65 

20BDFC 

4275 

JSR 

SFCBD 

FC68 

DOEA 

4276 

BNE 

BFC54 


;get checksum 
;and send it 
return from IRQ 

;get next byte to urite 

;and move ta. output character buffer 

;compute checksum 

;advance address 
; return froo IRQ 
;get parity bit 
;ioverc it 

;put Into output buffer 
; return from IRQ 

;decrement phase 
;if phase is 0 
;stop cassette operations 
;set # cycles per sync to 40 


;set IRQ vector 

;for cassette urite, part 1 

; return from IRQ 


211 





4278 

; IRQ routine for 

cassette write, part 1 



4279 

! 




4280 

;entered for each 

block copy and for end of block 



4281 



FC6A 

A978 

4282 

WFC6A LDA $78 


FC6C 

20AFFB 

4283 

JSR BFBAF 

;invert output and schedule Timer 

FC6F 

D0E3 

4284 

BNE BFC54 

;if output is zero again 

FC71 

C6A7 

4265 

DEC ZA7 

;decrement cycle count per sync 

FC73 

DODF 

4286 

BNE BFC54 

;when zero, 

FC75 

2097FB 

4287 

JSR SFB97 

;reset cassette read/vrite varlables 

FC78 

C6AB 

4288 

DEC ZAB 

;decrement sync count per block 

FC7A 

10D8 

4289 

BPL BFC54 

;lf negative. 

FC7C 

A20A 

4290 

LDX $0A 

;set IRQ vector 

FC7E 

20BDFC 

4291 

JSR SFCBD 

;to other cassette write routine 

FC81 

58 

4292 

CLI 

;enable IRQ 

FC82 

E6AB 

4293 

INC ZAB 

;sync count set to 0 

FC84 

A5BE 

4294 

1.DA ZBE 

;if phase * 0 

FC86 

F030 

4295 

BEQ BFCB8 

jgo terminate 

FC88 

208EFB 

4296 

JSR SFB8E 

;move start of I/O area to current addr 

FC8B 

A209 

4297 

LDX $09 


FC8D 

86A5 

4298 

STX ZA5 

;set block, header count 

FC8F 

86B6 

4299 

STX ZB6 

;and current byte pointer 

FC91 

D083 

4300 

BNE BFC16 

;go urite block 



4301 

» 




4302 

;switch from cassette IRQ to default IRQ 



4303 

» 


FC93 

08 

4304 

SFC93 PHP 

;save flags 

FC94 

78 

4305 

SEI 

;disable IRQ 

FC95 

ADHDO 

4306 

LDA XD011 


FC98 

0910 

4307 

ORA $10 

;make screen visible again 

FC9A 

8D11D0 

4308 

STA XD011 


FC9D 

20CAFC 

4309 

JSR SFCCA 

;stop cassette motor 

FCAO 

A97F 

4310 

LDA $7F 


FCA2 

8D0DDC 

4311 

STA XDCOD 

;clear mask for all IRQ's in ICR1 

FCA5 

20DOFD 

4312 

JSR SFDDD 

; reset TA1 to 1/60 of a second 

FCA8 

ADA002 

4313 

LDA X02A0 


FCAB 

F009 

4314 

BEQ BFCB6 


FCAO 

8D1503 

4315 

STA X0315 

jrestore standard IRQ vector 

FCBO 

AD9F02 

4316 

LDA X029F 


FCB3 

801403 

4317 

STA X0314 


FCB6 

28 

4318 

BFCB6 FLP 

;restore flags 

FCB7 

60 

4319 

RTS 



212 



4321 ; terminate cassette I/O 

4322 ; 

FCB8 2093FC 4323 BFCB8 JSR SFC93 ;svitch froa cassette to default IRQ 

FCBB F097 4324 BEQ BFC54 jreturn froa IRQ 

4325 ; 

4326 ;set IRQ vector depending upon X. 

4327 ; 

FCBD BD93FD 4328 SFCBD LDA TFD9B-8.X ;aove lou byte of address 

FOCO SDÌ403 4329 STA X0314 ;Into low byte of IRQ vector 

FCC3 BD94FD 4330 LDA TFD9B-7.X ;then do high byte 

FCC6 8DI503 4331 STA X0315 

FCC9 60 4332 RTS 

4333 ; 

4334 ;stop cassette aotor 

4335 ; 

FOCA A501 4336 SFOCA LDA Z01 

FCCC 0920 4337 ORA $20 ;set bit 5 high in 6510 1/0 register 

FCCE 8501 4338 STA Z01 ;to stop cassette aotor 

FCDO 60 4339 RTS 

4340 ; 

4341 ;coapare ZAC/D with ZAE/F 

4342 ; 

FCD1 38 4343 SFCD1 SEC 

FCD2 A5AC 4344 LDA ZAC 

FCD4 E5AE 4345 SBC ZAS ; compare lou parte 

FCD6 A5AD 4346 LDA ZAD 

FCD8 E5AF 4347 SBC ZAF ;then hi^i parts 

FCDA 60 4348 RTS ;C la clear uhen ZAC/D i$ lou 

4349 ; 

4350 ;Increment ZAC/D 

4351 ; 

FCDB E6AC 4352 SFCDB INC ZAC ;inerement low 

FCDD D002 4353 BNE BFCE1 

FCDF E6AD 4354 INC ZAD ;theo high uhen necessary 

FCE1 60 4355 BFCE1 RTS 
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4357 

; Reset routine 




435B 

; 




FCE2 

A2FF 

4359 

VFCE2 

LDX 

$FF 


FCE4 

78 

4360 


SEI 


;disable IRQ 

FCE5 

9A 

4361 


TXS 


;set stack pointer 

FCE6 

D8 

4362 


CLD 


;clear decimai mode 

FCE7 

2002FD 

4363 


JSR 

SFD02 

;teat for a cartridge 

FCEA 

D003 

4364 


BNE 

BFCEF 


FCEC 

6C0080 

4365 


JHP 

(X8000) 

;lf found, execute cartridge Reset 



4366 

» 




FCEF 

8E16DO 

4367 

BFCEF 

STX 

XD016 

;clear RES bit in video chip 

FCF2 

20A3FD 

4368 


JSR 

SFDA3 

;lnitlalize 1/0 devlces 

FCF5 

2030FD 

4369 


JSR 

SFD50 

;lnltlalize memory pointers 

FCFB 

2015FD 

4370 


JSR 

SFD15 

jrescore I/O veetors 

FCFB 

205BFF 

4371 


JSR 

JFF5B 

jinltialize screen and keyboard 

FCFE 

58 

4372 


CLI 


;enable IRQ 

FCFF 

6C00A0 

4373 


JHP 

(XAOOO) 

;begln executlon 



4374 

» 






4375 

; check for che presence of a carcrldge 



4376 

i 




FD02 

A205 

4377 

SFD02 

LDX $05 

;aet length of key 

FD04 

BDOFFD 

4378 

BFD04 

LDA TFD10-1.X 

;compare table contents 

FD07 

DD0380 

4379 


CMP X8004-1.X 

;to cartridge contenta 

FDOA 

D003 

4380 


BNE 

BFDOF 

;exlt wlth Z clear upon alsmatch 

FDOC 

CA 

4381 


DEX 



FOOD 

D0P5 

4382 


BNE 

BFD04 

;repeat for 5 characters 

FDOF 

60 

4383 

BFDOF 

RTS 


;Z set upon match 



4384 

* 






4385 

; carcrldge key for autostart and «aria start posslbllltles 



4386 

I 




FDIO 

C3C2CD 

4387 

TFD10 

. B? 

'C+$80,'B+$80,'H+?80,'8,'0 



4389 jreetore I/O vectors 

4390 ; 


FD15 

A230 

4391 SFD15 

LDX 

<TFD30 

;set XY to standard table 

FD17 

AOFD 

4392 

LDY >TFD30 


FD19 

18 

4393 

CLC 


jclear carry to use XY address 



4394 ; 






4395 ;set I/O vectors depending on XY 



4396 ; 



' 

FOIA 

86C3 

4397 JFD1A 

STX 

ZC3 

; score XY In teoporary pointer 

FDIC 

84C4 

4398 

STY 

ZC4 

- 

FOIE 

AOIF 

4399 

LDY 

$1F 

;set count for move 

FD20 

B91403 

4400 BFD20 

LDA 

X0314.Y 


FD23 

B002 

4401 

BCS 

BFD27 

jif carry set, don't fetch froo 

FD25 

B1C3 

4402 

LDA 

(2C3),Y 

;move one byte 

FD27 

91C3 

4403 BFD27 

STA 

(ZC3) ,Y 


FD29 

991403 

4404 

STA 

X0314.Y 

jto I/O vector 

FD2C 

88 

4405 

DEY 



FD2D 

10F1 

4406 

BPL 

BFD20 

;repeat for 32 bytes 

FD2F 

60 

4407 

KTS 





4408 ; 






4409 ;vectorà for Operating System at $0314-0333 



4410 ; 




FD30 

31EA 

4411 TFD30 


WEA31 

;IRQ 

FD32 

66FE 

4412 

.W 

WFE66 

;BRK 

FD34 

47FE 

4413 

.w 

WFE47 

;NMI 

FD36 

4AF3 , 

4414 

-W 

WF34A 

;0PEH 

FD38 

91F2 

4415 

-w 

WF291 

;CLOSE 

FD3A 

OEF2 

4416 

.V 

WF20E 

;6et Input devlce 

F03C 

50F2 

4417 


WF250 

;set output devlce 

FD3E 

33F3 

4418 

-W 

VF333 

;restore I/O 

F04O 

57F1 

4419 

.u 

WF157 

Jinput 

FD42 

CAF1 

4420 

-w 

«FICA 

;output 

FD44 

EDF6 

4421 

.w 

WF6ED 

;test Stop key 

FD46 

3EF1 

4422 

.W 

WF13E 

;get 

FD48 

2FF3 

4423 

.» 

WF32F 

;abort I/O 

FD4A 

66FE 

4424 

.V 

WFE66 

;unused (BRK) 

FD4C 

A5F4 

4425 

.H 

WF4A5 

;load RAM 

FD4E 

EDF5 

4426 

-w 

WF5ED 

; s ave RAM 
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4428 ;inltialize memory pointerc 


4429 ; 


FD50 

A900 

4430 

SFD50 LDA 

$00 

FD52 

A8 

4431 


TAF 


FD53 

990200 

4432 

BFD53 

SIA 

202, Y 

FD56 

990002 

4433 


SIA 

X0200.Y 

FD59 

990003 

4434 


STA 

X0300.Y 

FD5C 

C8 

4435 


INF 


FD5D 

D0F4 

4436 


BNE 

BFD53 

FD5F 

A23C 

4437 


LDX 

$3C 

FD61 

A003 

4438 


LDY 

$03 

FD63 

88B2 

4439 


STX 

ZB2 

FD65 

84B3 

4440 


STY 

ZB3 

FD67 

AB 

4441 


TAY 


FD68 

A903 

4442 


LDA 

$03 

FD6A 

85C2 

4443 


SIA 

ZC2 

FD6C 

E6C2 

4444 

BFD6C 

INC 

ZC2 

FD6E 

BICI 

4445 

BFD6E 

LDA 

(ZC1),Y 

FD70 

AA 

4446 


TAX 


FD71 

A955 

4447 


LDA 

$55 

PD73 

91C1 

4448 


STA 

(ZC1),Y 

FD75 DICI 

4449 


CMF 

(ZC1),Y 

FD77 

DOOF 

4450 


BNE 

BFD88 

FD79 

2A 

4451 


R0L 

A 

FD7a 

91C1 

4452 


SIA 

(ZC1) ,Y 

FD7C 

DICI 

4453 


CMP 

(ZCl).Y 

ro~>z 

D008 

4454 


B?fE 

BFD8S 

FD80 

8A 

4455 


TXA 


FD81 

91C1 

4456 


SIA (ZC1),Y 

FD83 

C8 

4457 


INY 


FD84 

D0E8 

4458 


BNE 

BFD6E 

FD86 

F0E4 

4459 


BEQ 

BFD6C 

FD88 

98 

4460 

BFD88 

TYA 


FD89 

AA 

4461 


TAX 


FD6A 

A4C2 

4462 


LDY 

zc: 

FD8C 

18 

4463 


CLC 


FD8D 

202DFE 

4464 


JSR 

JFE2D 

FD90 

A908 

4465 


LDA $08 

FD92 

8D8202 

4466 


STA 

X0282 

FD95 

A904 

4467 


LDA $04 

FD97 

8D8802 

44 68 


STA 

X0288 

FD9A 

60 

4469 


RTS 




4470 

» 





4471 

;1RQ vectors 



4472 

; 



FD9B 

6AFC 

4473 

TFD9B 

.V 

WFC6A 

FD9D 

CDFB 

4474 


.w 

WFBCD 

FD9F 

31EA 

4475 


.V 

HEA31 

FDA1 

2CF9 

4476 


. V 

VFS2C 


clear page C 
page 2 
and page 3 


set tape buffer pointer 


.initiaiize page for RAM test 
; continue RAM test or. next memory page 

;save RAM contents 


;if $55 not^t read back» then end of RAM 


;if $AA not read back, then end of RAM 

;else restare originai contents 
;bump addrees 

; continue or same page if not overilov 
; else continue test on next page 


;set top of memory pointer from XI 
;set bottom of memory pointer 
;set s Verri 'i '.cri - jf\i 


X=$08, cassette write routine, part 1 
X*$0A cassette write routine, part 2 
X-$0C standard IRQ routine 
X«=$0E cassette read routine 
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4478 jinicialize I/O devices 
'4479 ; 

FDA3 A97F 4480 SFDA3 LDA $7F ;clear all mas* blts In ICR1 

FDA5 8D0DDC 4481 STA XDCOD 

FDA8 8DODDD 4482 STA XDDOD ;and In ICR2 

FDAB 8D00DC 4483 STA XDCOO ;set PAI to $7F 

FDAE A908 4484 LDA $08 

FDBO 8D0EDC 4485 STA XDCOE jone-shot mode In CRAI 

FDB3 8D0EDD 4486 STA XDDOE ;and CRA2 

FDB6 8D0FDC 4487 STA XDCOF ;and ORBI 

FDB9 8D0FDD 4488 STA XDDOF ;and CRB2 

FDBC A200 4489 LDX $00 

FDBE 8E03DC 4490 STX XDC03 ;DDRB1 set to all inputs 

FDC1 8E03DD 4491 STX XDD03 ;DDRB2 set to all inputs 

FDC4 8E18D4 4492 STX XD418 ;kill volume in S1D chip 

FDC7 CA 4493 DEX 

FDC8 8E02DC 4494 STX XDC02 ;DDRA1 set to all outputs 

FDCB A907 4495 LDA $07 

FDCD 8D00DD 4496 STA XDDOO ;PA2 blts 0-2 set high 

FDDO A93F 4497 LDA $3F 

FDD2 8D02DD 4498 STA XDD02 ;DDRA2 blts 0-5 set to outputs 

FDD5 A9E7 4499 LDA $E7 

FDD7 8501 4500 STA Z01 jinitialize 6510 I/O register 

FDD9 A92F 4501 LDA $2F 

FDDB 8500 4502 STA ZOO ;and 6510 data direction register 

4503 ; 

4504 jinitialize TAL1/TAB1 for 1/60 of a second 

4505 ; 

FDDD ADA602 4506 SFDDD LDA X02A6 

FDEO FOOA 4507 BEQ BFDEC ;lf this is an luti, machine, 

FDE2 A925 4508 LDA $25 ;use Intl value for 1/60 second delay 

FDE4 8D04DC 4509 STA XDC04 ;and store in TALI 

FDE7 A940 4510 LDA $40 ;high byte of value 

FDE9 4CF3FD 4511 JMP JFDF3 ;go set high byte of timer 

4512 ; 

FDEC A995 4513 BFDEC LDA $95 ;slnce this is US machine, use US value 

FDEE 8D04DC 4514 STA XDC04 ;for 1/60 second to set TALI 

FDF1 A942 4515 • LDA $42 ;high byte of value 

FDF3 8D05DC 4516 JFDF3 STA XDC05 ;set TAJB1 

FDF6 4C6EFF 4517 JMP JFF6E ;go set CRAI for coatinuous timer IRQ's 

4518 ; 

4519 ;inltialize file carne parameters 

4520 ; 

FDF9 85B7 4521 JFDF9 STA ZB7 ;set # of characters in file nane 

FDFB 86BB 4522 STX ZBB ;set address of file asme 

FDFD 84BC 4523 STY ZBC ;+ high byte 

FDFF 60 4524 RTS 

4525 ; 

4526 ;inltlalize file parameters 

4527 ; 

FEDO 85B8 4528 JFEOO STA ZB8 ;set logicai file | 

FE02 86BA 4529 STX ZBA ;set current device 

FE04 84B9 4530 STY ZB9 ;set secondary address 

FE06 60 4531 RTS 
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4533 ;read I/O statue word 

4534 ; 

FE07 A5BA 4535 JFE07 LDA ZBA 

FE09 C902 4536 CKP $02 ;if RS-232 device, 

FEOB DOOD 4537 BNE BFE1A 

FEOD AD9702 4538 LDA X0297 ;read RS-232 Status Register 

FE10 48 4539 PHA 

FEll A900 4540 LDA $00 

FE13 8D9702 4541 STA X0297 ;then clear RS-232 Status Register 

FE16 68 4542 PLA ;and reatore originai coutente io A 

FE17 60 4543 RTS 

4544 ; 

4545 ;cootrol kernel messagea 

4546 ; 

FE18 859D 4547 JFE18 STA Z9D ;set direct/run mode (?80/$00) 

4548 ; 

4549 ;read ST 

4550 ; 

FE1A A590 4551 BFE1A LDA Z90 ;fetch current ST 

4552 ; 

4553 ;«dd A to current ST 
45 54 ; 

FE1C 0590 4555 SFE1C ORA Z90 ;add exlstlng bits to A 

FE1E 8590 4556 STA Z90 ;and store new ST 

FE20 60 4557 RTS 

4558 ; 

4559 ;aet timeout on serial bus 

4560 ; 

FE21 8D8502 4561 JFE21 STA X0285 {serial bus timeout flag (not used) 

FE24 60 4562 RTS 

4563 ; 

4564 ;read/set top of memory 

4565 ; 

FE25 9006 4566 JFE25 BCC JFE2D ;lf carry la clear, set pointers from XY 

FE27 AE8302 4567 SFE27 LDX X0283 ;else fetch top o£ memory iato XY 

F12A AC8402 4568 LDY X0284 

FE2D 8E8302 4569 JFE2D STX X0283 {set top of memory from X 

FE30 8C8402 4570 STY X0284 ;and high byte from Y 

FE33 60 4571 RTS 

4572 ; 

4573 ;read/set bottom of memory 

4574 ; 

FE34 9006 4575 JFE34 BCC BFE3C ;lf carry ia clear, set pointer from XY 

FE36 AE8102 4576 LDX X0281 ;else fetch bottom of memory into XY 

FE39 AC8202 4577 LDY X0282 

FE3C 8E81 02 4578 BFE3C STX X0281 ;set low byte bottom of memory from X 
FE3F 8C8202 4579 STY X0282 ;sod higb byte from Y 

FE42 60 4580 RTS 
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4582 ;NM1 entry 

4583 ; 

FE43 78 4584 WFE43 SEI 

FE44 6C1803 4585 JMP (X0318) ; perforai NMI (nonoally FE47) 

4586 ; 

4587 ;standard NMI routine 

4588 ; 


FE47 

48 

4589 WFE47 

PHA 


FE48 

8A 

4590 

TXA 


FE49 

48 

4591 

PHA 


FE4A 

98 

4592 

TYA 


FE4B 

48 

4593 

PHA 


FE4C 

A97F 

4594 

LDA 

$7F 

FE4E 

8D0DDD 

4595 

STA 

XDDOD 

FE51 

ACODDD 

4596 

LDT 

XDDOD 

FE54 

301C 

4597 

BUI 

BFE72 

FE56 

2002FD 

4598 

JSR 

SFD02 

FE59 

D003 

4599 

BNE 

BFE5E 

FE5B 

6C0260 

4600 

4601 ; 

JMP 

(X8002) 

FE5E 

20BCF6 

4602 BFE5E 

JSR 

BF6BC 

FE61 

20E1FF 

4603 

JSR 

SFFE1 

FE64 

DOOC 

4604 

4605 ; 

4606 ;BRX 

4607 ; 

BNE BFE72 

routine 

FE66 

2015FD 

4608 WFE66 JSR 

SFD15 

FE69 

20A3FD 

4609 

JSR 

SFDA3 

FE6C 

2018E5 

4610 

JSR 

SE518 

FE6F 

6C02A0 

4611 

JMP 

(XA002) 


; li ave A on stack 

;save X on etack 

;save Y on stack 

;clear ICR2 IRQ mask bits 

;if no IRQ's vere pre6ent 
;check for a cartridge 
;if cartridge preeent, 

; perfora cartridge uarm start 

;ecan thè keyboard 

; check for Stop key 

;and drop thru to BRK if depressed 


;restore 1/0 vectors 
;lnitialize I/O devicee 
;lnitialize screen and keyboard 
; perforai varo start 
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4613 ;internai 

NMI 



4614 ; 



FE72 

98 

4615 BFE72 

TI A 


FE73 

2DA102 

4616 

AND 

X02A1 

FE76 

AA 

4617 

TAX 


FE77 

2901 

4618 

AND 

$01 

FE79 

F028 

4619 

BEQ 

BFEA3 

FE7B 

AD00BD 

4620 

LDA 

xddoo 

FE7E 

29FB 

4621 

AND 

$FB 

FE80 

05b5 

4622 

ORA 

ZB5 

FE82 

BD00DD 4623 

STA 

XDDOO 

FE85 

ADA 102 

4624 

LDA 

X02A1 

FE88 

8D0DDD 4625 

STA 

XDDOD 

FE8B 

8A 

4626 

TXA 


FE8C 

2912 

4627 

AND 

$12 

FE8E 

FOOD 

4628 

BEQ 

BFE9D 

FE90 

2902 

4629 

AND 

$02 

FE92 

F006 

4630 

BEQ 

BFE9A 

FE94 

20D6FE 

4631 

JSR 

SFED6 

FE97 

4C9DFE 

4632 

JMF 

BFE9D 



4633 ; 



FE9A 

2007FF 4634 BFE9A JSR 

SFF07 

FE9D 

20BBEE 4635 BFE9D JSR 

SEEBB 

FEAO 

4CB6FE 

4636 

JMF 

JFEB6 



4637 ; 



FEA3 

SA 

4638 BFEA3 

TXA 


FEA4 

2902 

4639 

AND 

$02 

FEA6 

F006 

4640 

BEQ 

BFEAE 

FEA8 

20D6FE 4641 

JSR 

SFED6 

FEAB 

4CB6FE 4642 

JMP 

JFEB6 



4643 ; 



FEAE 

8A 

4644 BFEAE 

TXA 


FEAF 

2910 

4645 

AND 

$10 

FEB1 

F003 

4646 

BEQ 

JFEB6 

FEB3 

2007FF 

4647 

JSR 

SFF07 

FEB6 

ADA102 

4648 JFEB6 

LDA 

X02A1 

FEB9 

8D0DDD 4649 

STA 

XDDOD 

FEBC 

68 

4650 JFEBC 

PLA 


FEBD 

A8 

4651 

TAT 


FEBE 

68 

4652 

PLA 


FEBP 

AA 

4653 

TAX 


FECO 

68 

4654 

PLA 


FECI 

40 

4655 

RT1 



;get ICR2 

;mask vlth 1CR2 activity regl6ter 
;save resulta 


;lf not receivlng/vaiting receiver edge, 
;send next bit on serial bus 

;if not receiving, 

;Input next bit on RS-232 
;then send next bit od RS-232 bus 

jecbedule TB2 using baud rate factor 
;send next bit on RS-232 
;exit from NMI 


;if receiving data, 

;Input uext bit on RS-232, schedule TB2 
;exlt fron NMI 


;if vairing for receiver edge, 
;schedule TB2 using baud rate factor 
;use 1CR2 activity reglster 
;to aet ICR2 


;restore ì 

;restore X 
;rastore A 
;snd return fron NMI 


;lf transmltcing 

;dear RS-232 output data line 
;and add bit to be transtnitted 
;and send it 

.use ICR2 activity reglster 
;to set 1CR2 
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4657 ; cable of baud rate factors based upon 

4658 ;((clock frequeacy/baud rate/2)-100) 

4659 ;thls table applica to US Bachine clock frequency 

4660 ; 


FEC2 

C127 

4661 

TFEC2 .W 

S27C1 


50 baud 

FEC4 

3E1A 

4662 

,W 

$1A3E 


75 

FEC6 

C51I 

4663 

.w 

$1 ICS 


110 

FEC8 

740E 

4664 

.V 

$0E74 


134.5 

FECA 

EDOC 

4665 

« w 

$0CED 


150 

FECC 

4506 

4666 


$0645 


300 

FECE 

F002 

4667 

.V 

$02F0 


600 

FEDO 

4601 

4668 

♦ V, 

$0146 


1200 

FED2 

B800 

4669 

.w 

$00B8 


1800 

FED4 

7100 

4670 

.V 

$0071 


2400 



4671 

J 






4672 

;input next bit on 

RS“232 bus and schedule TB2 



4673 

9 




FED6 

AD01DD 

4674 

SFED6 LDA 

XDD01 



FED9 

2901 

4675 

AND 

$01 


mask bit read 

FEDB 

85A7 

4676 

STA 

2A7 


and save In temporary Storage area 

FEDD 

AD06DD 

4677 

LDA 

XDD06 


use TAL2 

FEEO 

E91C 

4678 

SBC 

$1C 


and overhead 

FEE2 

6D9902 

4679 

ADC 

X0299 


and baud rate full bit time 

FEE5 

8D06DD 

4680 

STA 

XDD06 

;to reset TBL2 

FEE8 

AD07DD 

4681 

LDA 

XDD07 



FEEB 

6D9A02 

4682 

ADC 

X029A 



FEEE 

8D07DD 

4683 

STA 

XDD07 


and TBH2 

FEF1 

A911 

4684 

LDA 

$11 



FEF3 

8D0FDD 

4685 

STA 

XDDOF 


set focce load + start TB2 bica in CRB2 

FEF6 

ADA102 

4686 

LDA 

X02A1 



FEF9 

8D0DDD 

4687 

STA 

XDDOD 


set ICR2 froo 1CR2 activity register 

FEFC 

A9FF 

4688 

LDA 

$FF 



FEFE 

8D06DD 

4689 

STA 

XDD06 


set TBL2 

FFOl 

8D07DD 

4690 

STA 

XDD07 

! 

and TBH2 to maximum vaine 

FF04 

4C59EF 

4691 

JKP 

JEF59 


add input bit to word being read 



4692 

» 






4693 

; schedule 

TB2 uslng 

baud rate factor 



4694 

1 




FF07 

AD9502 

4695 

SFF07 LDA 

X0295 


Bove bit tine 

FFOA 

8D06DD 

4696 

STA 

XDD06 


to TBL2 

FFOD 

AD9602 

4697 

LDA 

X0296 



FF10 

8D07DD 

4698 

STA 

XDD07 


and TBB2 

FF13 

A911 

4699 

LDA 

$11 



FF15 

8D0FDD 

4700 

STA 

XDDOF 


set force load and TB in CRB2 

FF18 

A912 

4701 

LDA 

$12 



FF1A 

4 DAI 02 

4702 

EOR 

X02A1 


invert vaiting for receiver edge and 

PF1D 

8DA102 

4703 

STA 

X02A1 


receiving data bits in activity reg 

FF20 

A9FF 

4704 

LDA 

$FF 



FF22 

8D06DD 

4705 

STA 

XDD06 


set TBL2 to maximum value 

FF25 

8D07DD 

4706 

STA 

XDD07 


set TBH2 to maximum value 

FF28 

AE9802 

4707 

LDX 

X0298 



FF2B 

86A8 

4708 

STX 

ZA8 


set number of bits to send/receive 

FF2D 

60 

4709 

RTS 
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4711 ;contlnuatlon of baud rate calcuation 

4712 ; 


FF2E 

AA 

4713 

SFF2E 

TAX 



FF2F 

AD9602 

4714 


LDA 

X0296 


FF32 

2A 

4715 


ROL 

A 

jmultlply factor * 2 

FF33 

A8 

4716 


TAY 



FF34 

8A 

4717 


TXA 



FF35 

69C8 

4718 


ADC 

$C6 

; and add 200 

FF37 

6D9902 

4719 


STA 

X0299 

;to form baud rate 

FF3A 

98 

4720 


TYA 



FF3B 

6900 

4721 


ADC 

0 


FF3D 

8D9A02 

4722 


STA 

X029A 


FF40 

60 

4723 


ETS 





4724 

» 




FF41 

FA 

4725 


NOP 



FF42 

EA 

4726 


NOP 





4727 

; 




FF43 

06 

4728 

JFF43 PHP 



FF44 

68 

4729 


PLA 



FF45 

29EF 

4730 


AND 

SEF 

;clear BRK status bit 

FF47 

48 

4731 


PHA 





4732 

> 






4733 

;IRQ entry point 




4734 

> 




FF48 

48 

4735 

WFF48 

PHA 


;save A on stack 

FF49 

8A 

4736 


TXA 



FF4A 

48 

4737 


PHA 


; save X on stack 

FF4B 

98 

4738 


TYA 



FF4C 

48 

4739 


PHA 


;save Y on stack 

FF4D 

BA 

4740 


TSX 



FF4E 

B00401 4741 


LDA 

XOIOO+4, 

,X ;check BRK bit 

FF51 

2910 

4742 


AND 

$10 


FF53 

F003 

4743 


BEQ 

BFF58 


FF55 

6C1603 

4744 


JMP 

(X0316) 

;perfonn BRK (normally FE66) 



4745 

♦ 




FF58 

6C1403 

4746 

BFF58 

JKP 

(X0314) 

jelse IRQ (normally EA31) 



4747 

» 






4748 

;additlon 

to I/O device lnltlallzation 



4749 

» 




FF5B 

2018E5 

4750 

JFF5B JSR 

SE518 

jinitiallze screen and keyboard 

FF5E 

ADI200 4751 

B7F5E ODA 

XD012 


FF61 

DOFB 

4752 


BNE 

BFF5E 

;valt for raster count to dear 

FF63 

AD19D0 4753 


LDA 

XD019 

;uae lnterrupt register 

FF66 

2901 

4754 


AND 

$01 


FF68 

8DA602 

4755 


STA 

X02A6 

jto set OS/lntl machine flag (0“US) 

FF6B 

4CDDFD >4756 


JMP 

SFDDD 

;set dock for 1/60 Eecond IRQ's 



4757 

» 






4758 

;end 

of scheduling TA for t/60 aecond XRQ's 



4759 

f 




FF6E 

A981 

4760 

JFF6E 

LDA 

$81 


FF70 

8D0DDC 

4761 


STA 

XDCOD 

jset TA mask In ICR1 

FF73 

ADOEDC 

4762 


LDA 

XDCOE 

;use CRAI 

FF76 

2980 

4763 


AND 

$80 

;bit 7 (50/60 Hz flag) 

FF78 

0911 

4764 


ORA 

$11 

;-f force load, contlnuous mode and TA1 

FF7A 

8O0EDC 

4765 


STA 

XDCOE 

;to set CRAI 

FF7D 

4CSEEE 

4766 


JMP 

SEE8E 

;set serial clock line high aad return 

FF80 

00 

4767 


• BY 

$00 

; filler 
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4769 

:kernal vectors 

FF81 

4C5BFF 

4770 

4771 

* 

JMP 

JFF5B 

FF84 

4CA3FD 

4772 

4773 

» 

JHP 

SFDA3 

FF87 

4C50FD 

4774 

4775 

» 

JMP 

SFD50 

FF8A 

4C15FD 

4776 

4777 

» 

JMP 

SFD15 

FF8D 

4C1AFD 

4778 

4779 

> 

JMP 

JFD1A 

FF90 

4C18FE 

4780 

4781 

» 

JMP 

JFE18 

FF93 

4CB9ED 

4782 

4783 

> 

JMP 

SEDB9 

FF96 

4CC7ED 

4784 

4785 

! 

JMP 

SEDC7 

FF99 

4C25FE 

4786 

4787 

SFF99 

JMP 

JFE25 

FF9C 

4C34FE 

4788 

4789 

SFF9C 

JMP 

JFE34 

FF9F 

4C87EA 

4790 

4791 

> 

JMP 

SEA87 

FFA2 

4C21FE 

4792 

4793 

* 

JMP 

JFE21 

FFA5 

4C13EE 

4794 

4795 

> 

JMP 

JEE13 

FFA8 

4CDDED 

4796 

4797 

• 

JMP 

JEDDB 

FFAB 

4CEFED 

4798 

4799 

» 

JMP 

SEDEF 

FFAE 

4CFEED 

4800 

4801 

• 

JMP 

SEDFE 

FFB1 

4C0CED 

4802 

4803 

» 

JMP 

SED0C 

FFB4 

4C09ED 

4804 

4805 

5 

JMP 

SED09 

FFB7 

4C07FE 

4806 

4807 

SFFB7 

JMP 

JFE07 

FFBA 

4C00FE 

4808 

4809 

SFFBA 

JMP 

JFEOO 

FFBD 

4CF9FD 

4810 

4811 

SFFBD 

JMP 

JFDF9 

FFCO 

6C1A03 

4812 

4813 

SFFC0 

JMP 

(X03LA) 

FFC3 

6C1C03 

4814 

4815 

SFFC3 

JMP 

(X031C) 

FFC6 

6CIE03 

4816 

4817 

SFFC6 

JMP 

(X031E) 

FFC9 

6C2003 

4818 

4819 

SFFC9 

JMP 

(X0320) 

FFCC 

6C2203 

4820 

4821 

SFFCC 

JMP 

(X0322) 

FFCF 

6C2403 

4822 

4823 

SFFCF 

JMP 

(X0324) 

FFD2 

6C2603 

4824 

4825 

SFFD2 

JMP 

(X0326) 

FFD5 

4C9EF4 

4826 

4827 

SFFD5 

JMP 

JF49E 



4828 

» 




jinitialize screen and keyboard 

;initialize I/O devices 

;inltlallze memory pointers 

jrestore I/O vectorsces 

;set I/O vectors from XY 

;control kernal meesages 

;send Secondary Address after Listen 

;send Secondary Address after Talk 

;read/set top of memory 

;read/set botto* of neaory 

;scan keyboard 

; set timeout for serial bus 

;input byte on serial bus 

; output byte on serial bus 

; send Uctalk on serial bus 

;send Unlisten on serial bus 

;send Listen on serial bus 

;send Talk on serial bus 

;read I/O status word 

; set file paraaeters 

; set file name parameters 

;open a file (F34A) 

;close a file (F291) 

;set input device (F20E) 

;set output devic^ (F250) 
jrestore I/O devices to default (F333) 
;input char on current device (F157) 
;output char to current device (FICA) 
;load RAM from a device 
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FFD8 

4CDDF5 

4829 

SFFD8 

JMP 

JF5DD 

;eave RAM to a device 




4830 

> 





FFDB 

4CE4F6 

4831 


JMP 

JF6E4 

;Bet rea! rime clock 




4832 

» 





FFDE 

4CDDF6 

4833 


JMP 

JF6DD 

;read reai time clock 




4834 

! 





FFE1 

6C2803 

4835 

SFFEl 

JMP 

(X0328) 

; check Stop key (F6ED) 




4836 

* 





FFE4 

6C2A03 

4837 

SFFE4 

JMP 

(X032A) 

;get a character <F13E) 




4838 

» 





FFE7 

6C2C03 

4839 


JMP 

(X032C) 

;close all channels and files 

(F32F) 



4840 

» 





FFEA 

4C9BF6 

4841 

SFFEA 

JMP 

JF69B 

;increment reai time clock 




4842 

» 





FFED 

4C05E5 4843 


JMP 

JE505 

;read organization of screen 

loto XY 



4844 

i 





FFFO 

4COAE5 4845 


JMP 

JE50A 

;read/set XY cursor position 




4846 

» 





FFF3 

4C00E5 4847 

SFFF3 

JMP 

JE500 

;read base address of 1/0 devices 



4848 








4849 

;garbage 






4850 

; 





FFF6 

525242 

4851 


.BY 

$52,$52,$42,$59 




4852 

» 







4853 

;6510 

fixed veccors 





4654 

> 





FFFA 

43FE 

4855 


.W 

WFE43 

;NMI vpctor 


FFFC 

E2FC 

4856 


.W 

WFCE2 

;RESET vector 


FFFE 

48FF 

4857 


.U 

WFF48 

;IRQ/BSK vector 
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BEOOB 

EOOB 

333 



BEOOE 

EOOE 

327 



BEOIE 

E01E 

343 



BE06C 

E06C 

379 



BEO 70 

E070 

396 



BE07D 

E07D 

388 



BEOBE 

EOBE 

410 



BE0D3 

E0D3 

409 



BE0F9 

E0F9 

470 

474 

478 

BE104 

E104 

459 



BE109 

E109 

465 



BEI 94 

E194 

546 

586 


BE195 

E195 

539 



BE19E 

E19E 

543 



BE1A1 

E1A1 

554 



BE1B5 

E1B5 

560 



BEICI 

E1D1 

537 

578 


BE20D 

E20D 

618 

627 


BE23F 

E23F 

647 



BE29D 

E29D 

688 

727 


BE2A0 

E2A0 

691 



BE2AD 

E2AD 

700 



BE316 

E316 

756 



BE324 

E324 

761 



BE337 

E337 

770 



BE33D 

E33D 

775 



BE386 

E386 

833 



EE391 

E391 

821 



BE3A8 

E3A8 

838 



BE3B9 

E3B9 

842 



BE3E2 

E3E2 

876 



BE421 

E421 

902 



BE4S5 

E455 

941 



BE4B6 

E4B6 

960 



BE4E2 

E4E2 

985 



BE4EB 

E4EB 

983 



BE513 

E513 

1016 



BE54D 

E54D 

1056 



BE555 

E5S5 

1052 



BE560 

E560 

1062 



BE570 

E570 

1077 



BE57C 

E57C 

1072 



BE58D 

E58D 

1091 



BE597 

E597 

1087 



BE5AA 

E5AA 

1108 



BE5B9 

E5B9 

1119 



BE5CA 

E5CA 

1154 



BE5CD 

E5CD 

1132 

1151 

1187 

BE5E7 

E5E7 

1135 



BE5F3 

E5F3 

1150 



BE5FE 

E5FE 

1143 



BE606 

E606 

1161 



BE60F 

E60F 

1159 



BE63A 

E63A 

1169 

1173 

1177 

BE64A 

E64A 

1197 



BE650 

E650 

1199 



BE654 

£654 

1201 

1202 


BE65D 

E65D 

1178 



BE66F 

E66F 

1213 
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BE672 

E672 

1216 


BE674 

E674 

1207 


BE682 

E682 

1226 


BE690 

E690 

1234 


BE699 

E699 

1245 


BE69F 

E69F 

1248 


BE6A8 

E6A8 

1317 1407 

1425 1475 1506 1509 1514 1541 2007 2019 

BE6B0 

E6B0 

1259 


BE6CD 

E6CD 

1278 


BE6DA 

E6BA 

1283 1674 

1708 

BE6F4 

E6F4 

1299 


BE6F7 

E6F7 

1276 


BE700 

E700 

1274 


BE70B 

E70B 

1313 


BE72A 

E72A 

1337 


BE731 

E731 

1341 


BE73D 

E73D 

1347 


BE73F 

E73F 

1349 


BE745 

E745 

1345 


BE74C 

E74C 

1355 


BE759 

E759 

1361 


BE762 

E762 

1379 


BE7 7E 

E77E 

1359 


BE785 

E785 

1386 


BE78B 

E78B 

1390 


BE792 

E792 

1393 


BE7A8 

E7A8 

1417 1418 


BE7AA 

E7AA 

1402 


BE7AD 

E 7 AD 

1396 


BE7C0 

E7C0 

1423 


BE7C8 

E7C8 

1421 


BE7CB 

E7CB 

1384 


BE7CE 

E7CE 

1410 


BE7DC 

E7DC 

1434 


BE7E3 

E7E3 

1437 


BE7EA 

E7EA 

1441 


BE7FE 

E7FE 

1451 


BE805 

£805 

1453 


BE80A 

E80A 

1469 


BE826 

£826 

1455 


BE829 

£829 

1447 


BE82D 

E82D 

1445 


BE832 

£832 

1478 


BE847 

E847 

1490 


BE84C 

E84C 

1483 


BE854 

E854 

1496 


BE864 

E864 

1502 


BE86A 

E86A 

1500 


BE871 

E871 

1485 1492 

1494 

BE874 

£874 

1512 


BE880 

E880 

1529 


BE888 

E888 

1526 


BE8A5 

E8A5 

1552 


BE8B0 

E8B0 

1548 


BE8B7 

E8B7 

1567 


BE8C2 

E8C2 

1563 


BE8CA 

ESCA 

1572 


BE8CD 

E8CD 

1582 


BE8D6 

E8D6 

1580 


BE8F6 

F-8F6 

1639 
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BE8FF 

E8FF 

1614 




BE913 

E913 

1609 




BE918 

E918 

1625 




BE922 

E922 

1620 




BE94D 

E94D 

1645 

1647 



BE9S& 

E956 

1641 




BE981 

E981 

1668 

1669 



BE98F 

E98F 

1694 




BE9A6 

E9A6 

1688 

1689 



BE9AB 

E9AB 

1706 




BE9BA 

E9BA 

1702 




BE9BF 

E9BF 

1698 




BE9D4 

E9D4 

1723 




BEA07 

EA07 

1757 




BEA5C 

EASC 

1799 




BEA61 

EA61 

840 

1790 

1792 


BEA71 

EA71 

1811 




BEA79 

EA79 

1816 




BEA7B 

EA7B 

1818 




BEAA8 

EAA8 

1875 




BEAAB 

EAAB 

1852 

. 



BEAB3 

EAB3 

1870 




BEAC9 

EAC9 

1858 

1860 



BEACB 

EACB 

1863 




BEACC 

EACC 

1854 




BEADC 

EADC 

1868 




BEAFO 

EAFO 

1883 




BEAFB 

EAFB 

1840 




BEBOD 

EBOE 

1890 

1895 

1897 

1899 

BEB17 

EBI7 

1903 




BEB26 

EB26 

1886 

1893 



BEB42 

EB42 

1891 

1901 

1905 

1907 1912 1918 1922 1934 

BEB&4 

EB64 

1932 




BEB6B 

EB6B 

1946 




BEB76 

EB76 

1936 

1940 



BECS8 

. EC58 

2001 




BECSB 

EC5B 

2015 




BEC5E 

EC5E 

2003 




BEC69 

EC69 

2010 




BEC72 

EC72 

2013 




BED20 

ED20 

2104 




BED2E 

ED2E 

2115 




BED50 

ED50 

2135 




BEÌ>55 

ED55 

2137 




BED5A 

ED5A 

2133 

2139 



BE066 

ED66 

2145 

2163 



BED7A 

ED7A 

2149 




BED7D 

EB7D 

2151 




BED9F 

ED9F 

2173 




BEDAD 

EDAD 

2130 




BEDBO 

EDBO 

2147 

2171 



BEDD6 

EDD6 

2203 




BEDE6 

EDE6 

2210 




BEDEB 

EDEB 

2213 




BEE03 

EE03 

2183 




BEE09 

EE09 

2239 




BEEIB 

EE1B 

2251 




BEE20 

EE20 

2274 




BEE30 

EE30 

2262 




BEE3E 

EE3E 

2260 
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BEE47 

EE47 

2265 




BEE56 

EE56 

2263 




BEE5A 

EE5A 

2279 

2281 

2289 


BEE67 

EE67 

2285 

2287 



BEE80 

EE80 

2292 




BEEB6 

EEB6 

2342 




BEEC8 

EEC8 

2353 




BEED1 

E ELI 

2375 

2377 

2387 


BEED7 

EED7 

2359 




BEEE6 

EEE6 

2379 

2382 

2384 


BEEE7 

EEE7 

2371 

2381 

2383 


BEEF2 

EEF2 

2367 




BEEF6 

EEF6 

2369 




BEEFC 

EEFC 

2368 




BEFOO 

EFOO 

2350 




BEF06 

EF06 

2349 

2565 



BEF13 

EFX3 

2390 




BEF2E 

EF2E 

2392 




BEF31 

EF31 

2393 




BEF39 

EF39 

2401 




BEF54 

EF54 

2427 




BEF58 

EF58 

2429 




BEF6D 

EF6D 

2457 

2495 

2499 

2501 

BEF6E 

EFÒE 

2494 




BEF70. 

EF70 

2440 




BEF7E 

EF7E 

2472 

2511 



BEF90 

EF90 

2437 




BEF97 

EF97 

2439 




BEFA9 

EFA9 

2490 




BEFB1 

EFB1 

2487 




BEFC5 

EFC5 

2498 




BEFCA 

EFCA 

2481 




BEFCD 

EFCD 

2515 




BEFDO 

E FDD 

2514 




BEFDB 

EFDB 

2452 




BEFF2 

EFF2 

2529 




BEFF9 

EFF9 

2531 




BF006 

F006 

2537 




BFOOD 

FOOD 

2525 

2580 

3135 


BF012 

F012 

2522 

2526 

2536 


BF014 

F014 

2549 




BF04C 

F04C 

2556 




BF062 

F062 

25B4 




BF070 

F070 

2590 




BF077 

F077 

2597 




BF07D 

F07D 

2575 

2577 



BF084 

F084 

2581 




BF09C 

F09C 

2606 




BFOAA 

FOAA 

2625 




BFOBB 

FOBB 

2622 




BF12F 

F12F 

2658 

3320 

3324 

3445 3534 3565 3695 3700 

BF13C 

F13C 

2651 




BF14A 

F14A 

2665 




BF155 

F155 

2667 




BF166 

F166 

2672 

2682 



BF173 

F173 

2690 




BF18D 

F18D 

2705 




BF193 

F193 

2704 




BF196 

F196 

2701 




BFIA9 

F1A9 

2722 
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BF1AD FIAB 2696 

BF1B1 FIB1 2750 

BF1B3 F1B3 2747 

BF1B4 F1B4 2724 2745 

BF1B5 F1B5 2733 

BF1B8 F1B8 2698 2751 

BF1D5 F1D5 2758 

BF1DB F1DB 2762 

BF1F8 F1F8 2775 

BFIFD F1FD 2777 

BF2Q7 F207 2791 

BF208 F208 2773 

BF216 F216 2801 

BF22A F22A 2811 

BF233 F233 2806 2808 2816 2835 

BF237 F237 2809 

BF245 F245 2828 

BF258 F258 2841 

BF25F F25F 2858 

BF262 . F262 2846 

BF26P F26F 2853 

BF275 F275 2850 2874 

BF279 F279 2851 

BF286 F286 2868 

BF289 F289 2870 

BF298 F298 2880 

BF2BA F2BA 2899 

BF2BF F2BF 2902 

BF2C8 F2C8 2893 

BF2E0 F2E0 2919 

BF2EE F2EE 2891 

BF2F1 F2F1 2888 2890 2913 2926 2929 

BF30D F30D 2941 

BF316 F316 2961 

BF32E F32E 2959 

BF33C F33C 2983 

BF343 F343 2986 

BF351 F351 2996 

BF359 F359 3000 

BF362 F362 3005 

BF384 F384 3020 

BF38B F38B 3024 

BF393 F393 3030 

BF3AC F3AC 3049 

BF3AF F3AF 3040 

BF3B8 F3B8 3035 

BF3C2 F3C2 3042 3048 

BF3D1 F3D1 3060 

BF3D3 F3D3 3017 3019 3022 3072 3074 

BF3D4 F3D4 3037 3043 3047 3054 

BF3F6 F3F6 3083 

BF3FC F3FC 3095 

BF406 F406 3089 

BF40F F40F 3108 

BF41D F41D 3103 

BF43A F43A 3117 

EF446 F446 3113 

BF45C F45C 3131 3134 

BF474 F474 3143 

BF4AP F4AF 3186 
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BF4B2 

F4B2 

3X82 




BF4BF 

F4BF 

3189 




BF4F0 

F4F0 

3210 




BF4F3 

F4F3 

3228 

3243 



BFS01 

FS01 

32 20 




BF31C 

F51C 

3231 




BF51E 

F51E 

3234 




BF524 

F524 

3240 




BF530 

F530 

3206 

3265 

32 68 


BF533 

F533 

3187 




BF539 

F539 

3250 




BF541 

F541 

3254 




BF549 

F549 

3276 




BF556 

F556 

3261 




BFSSD 

F55D 

3263 




BF56C 

F56C 

3285 




BF579 

F579 

3274 




BF57D 

F57D 

3283 




BF5A9 

F5A9 

3246 




BF5AE 

F5AE 

3258 

3264 

3267 

32-72 

BFSC7 

F5C7 

3332 




BF5D1 

F5D1 

3318 

3322 

3326 


BF5DA 

F5BA 

3339 




BFSF1 

F5F1 

3361 

3417 



BF5F4 

F5F4 

3357 




BF605 

F605 

3366 




BF624 

F624 

3393 




BF63A 

F63A 

3386 




BF63F 

F63F 

3382 




BF657 

F657 

3399 




BF659 

F659 

3362 




BF65F 

F65F 

3411 




BF676 

F676 

3424 




BF68D 

F68D 

3433 




BF6BE 

F68E 

3419 

3428 

3430 

3443 

BF6A7 

F6A7 

3452 

3454 



BF6BC 

F6BC 

3463 

3469 

3787 

4602 

BF6CC 

F6CC 

3476 




BF6DA 

FÈDA 

3471 




BF6DC 

F6DC 

3479 




BF6FA 

F6FA 

3503 




BF729 

F729 

3533 




BF748 

F74B 

3556 

3558 



BF757 

F757 

3571 




BF761 

F761 





BP767 

F767 

3563 




BF769 

F769 

3550 

3554 



BF781 

F781 

3596 




BF7A5 

F7A5 

3623 




BF7B7 

F7B7 

3617 




BF7CF 

F7CF 

3583 




BF7F7 

F7F7 

3678 




BF80B 

F80B 

3670 




BF80C 

F80C 

3664 




BF81E 

F81E 

3716 




BF821 

F821 

3698 




BF836 

F836 

3693 

3706 

3714 


BF86E 

F86E 

3725 




BF875 

F875 

3736 




BF8BS 

F8B5 

3780 






8F8B7 

F8B7 

3778 



BF8DC 

F8DC 

3744 

3785 


BF8E1 

F8E1 

3794 



BF8F7 

F8F7 

3816 



BF8FE 

F8FE 

3825 



BF92A 

F92A 

3836 

3837 

3839 

BF92C 

F92C 

3853 



BF969 

F969 

3875 



BF988 

F988 

3879 

3925 


BF98B 

F98B 

3893 

3929 

3943 

BF993 

F993 

3884 



BF997 

F997 

3889 

3969 


8F999 

F999 

3901 



BF9AC 

F9AC 

3873 

3897 

3899 3945 3947 3949 

BF9BC 

F9BC 

3917 



BF9C9 

F9C9 

3956 



BF9D2 

F9D2 

3914 

3919 

3954 

BF9D5 

F9D5 

3911 



BF9DE 

F9DE 

3934 



BF9E0 

F9EO 

3933 



BF9F7 

F9F7 

3924 

3941 


BFA18 

FA18 

3964 



BFA1F 

FA1F 

3966 

3968 


BFA44 

FA44 

3981 



BFA53 

FA53 

3992 



BFA5D 

FA5D 

3983 



BFA70 

FA70 

4011 



BFA86 

FA86 

4017 



BFA8A 

FA8A 

4020 

4023 4031 4033 4044 4050 4053 

bfasd 

FA8D 

4015 



BFAA3 

FAA3 

4037 



BFAA9 

FAA9 

4029 



BFABA 

FABA 

4038 

4040 


BFACO 

FACO 

4028 



BFACE 

FACE 

4055 



BFAD6 

FAD6 

4062 



BFAEB 

FAEB 

4069 

4073 


BFB08 

FB08 

4067 



BFB2F 

FB2F 

4103 



BFB33 

FB33 

4080 



BFB3A 

FB3A 

4077 

4089 

4111 

BFB43 

FB43 

4093 

4096 

4099 4107 4114 4116 

BFB5C 

FB5C 

4130 



BFB68 

FB68 

4133 



BFB72 

FB72 

4147 



BFB8B 

FB8B 

4121 

4135 

4137 4150 

BFBAF 

FBAF 

4179 

4283 


BFBC8 

FBC8 

4251 



BFBE3 

FBE3 

4201 



BFBFO 

FBFO 

4212 



BFC09 

FC09 

4199 

4205 

4208 4214 4216 4218 4235 42$8 4255 4262 

BFCOC 

FCOC 

4222 


BFC16 

FC16 

4300 



BFC2C 

FC2C 

4245 



BFC30 

FC30 

4239 



BFC3F 

FC3F 

4250 



BFC4E 

FC4E 

4234 



BFC54 

FC54 

4276 

4284 

4286 4289 4324 

BFC5E 

FC5E 

4269 



BFCB6 

' FC86 

4314 
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BFCB8 

FCB8 

4295 





BFCE1 

FCE1 

4353 





BFCEF 

FCEF 

4364 





BFD04 

FD04 

4382 





BFDOF 

FDOF 

4380 





BFD20 

FD20 

4406 





BFD27 

FD27 

4401 





BFD53 

FD53 

4436 





BFD6C 

FD6C 

4455 





BFD6E 

FD6E 

4458 





BFD88 

FD88 

4450 

4454 




BFDEC 

FDEC 

4507 





BFE1A 

FEIA 

4537 





BFE3C 

FE3C 

4575 





BFE5E 

FE5E 

4599 





BFE72 

FE72 

4597 

4604 




BFE9A 

FE9A 

4630 





BFE9D 

FE9D 

4628 

4632 




BFEA3 

FEA3 

4619 





BFEAE 

FEAE 

4640 





BFF58 

FF38 

4743 





BFF5E 

FF5E 

4752 





JE043 

E043 

704 

767 




JEOE3 

EOE 3 

426 





JE500 

E500 

4847 





JE305 

E505 

4843 





JE50A 

ESOA 

4845 





JE566 

E566 

1096 

1394 




JE632 

E632 

2687 

2694 




JE691 

E691 

1438 





JE693 

E693 

1352 





JE697 

E697 

1356 

1387 

1480 



JE773 

E773 

1363 





JE7D4 

E7B4 

1338 





JE891 

E891 

1342 

1442 




JE958 

E958 

1709 





JE967 

E967 

1279 

1665 




JEAEO 

EAEO 

1953 





JEC44 

EC44 

1428 





JEC4F 

EC4F 

1518 

1998 




JEDB2 

EDB2 

2267 





JEDDD 

EDDD 

2764 

3092 

3378 

3380 

3384 4797 

JEE13 

EE13 

2740 

3201 

3207 

3223 

4795 

JEF3B 

EF3B 

2467 

2564 

2593 



JEF59 

EF59 

4691 





JEFE1 

EFE1 

2854 





JF04D 

F04D 

2812 





JF12B 

F12B 

3341 





JF1FC 

F1FC 

2796 





JF248 

F248 

2830 





JF409 

F409 

3025 





JF440 

F440 

3120 





JF47D 

F47D 

2907 

3148 




JF49E 

F49E 

4827 





JF5C1 

F5C1 

3446 





JF5DD 

F5DD 

4829 





JF633 

F633 

3221 





JF6S4 

F654 

3096 





JF69B 

F69B 

4841 





JF6DD 

F6DD 

4833 
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JF6E4 

F6E4 

4831 






JF6FB 

F6FB 

3006 






JF6FE 

F6FE 

3001 






JF701 

F701 

2802 

2842 





JF704 

F704 

3044 

3247 





JF707 

F707 

2836 

2875 

3086 




JF70A 

F70A 

2817 

2997 





JF70D 

F70D 

2847 






JF710 

F710 

3190 

3367 





JF713 

F713 

3031 

3183 

3251 

3255 

3358 

3412 

JFSBE 

F8BE 

3788 






JFA10 

FAIO 

3894 






JFA60 

FA60 

3876 






JFB48 

FB48 

4063 






JFB4A 

FB4A 

4059 






JFC57 

FC57 

4209 






JFD1A 

FOIA 

4779 






JFDF3 

FDF3 

4511 






JFDF9 

FDF9 

4811 






JFEOO 

FEOO 

4809 






JFE07 

FE07 

4807 






JFE18 

FE18 

4781 






JFE2L 

FE21 

4793 






JFE25 

FE25 

4787 






JFE2D 

FE2D 

3154 

4464 

4566 




JFE34 

FE34 

4789 






JFEB6 

FEB6 

4636 

4642 

4646 




JFEBC 

FEBC 

3930 

3961 

4002 

4026 

4153 

4229 4266 

JFF43 

FF43 

3841 






JFF5B 

FF5B 

4371 

4771 





JFF6E 

FF6E 

4517 






SE059 

E059 

350 






SEOSD 

E05D 

364 






SEOF6 

EOF 6 

714 






SE1M 

E1D4 

515 

532 





SE200 

E200 

599 

604 

642 

651 



SE206 

E206 

596 

598 

603 

641 

650 

657 

SE20E 

E20E 

612 

658 





SE211 

E211 

634 






SE219 

E219 

576 

583 





SE257 

E257 

597 






SE26B 

E26B 

711 






SE2DC 

E2DC 

721 






SE3BF 

E3BF 

829 






SE422 

E422 

830 






SE453 

£453 

828 






SE4AD 

E4AD 

477 






SE4DA 

E4DA 

1754 






EE4E0 

E4E0 

3573 






SE518 

£518 

4610 

4750 





SE544 

E544 

1513 






SE56C 

E56C 

1019 

1320 

1493 

1531 



SESAO 

E5AO 

1026 

1095 





SE5B4 

E5B4 

1141 

2669 





SE684 

E684 

1205 

1351 





SE6B6 

E6B6 

1252 






SE6ED 

E6ED 

1171 

1301 





SE701 

E701 

1362 

1508 





SE716 

E716 

1128 

1217 

2760 




SE87C 

E87C 

1305 

1404 

1424 

1540 
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SE8A1 

E8A1 

1365 

1503 




SE8B3 

E8B3 

1270 

1398 




SE8CB 

E8CB 

1427 

1517 




SE8EA 

E8EA 

1284 

1527 1670 




SE96S 

E965 

1456 





SE9C8 

E9C8 

1613 

1693 




SE9E0 

E9EO 

1716 





SE9F0 

E9FO 

1302 

1607 1686 1750 




SE9FF 

E9FF 

1060 

1615 1695 




SEA13 

EA13 

1140 

1251 




SEA1C 

EAIC 

1808 





SEA24 

EA24 

1368 

1458 1728 1751 

1765 

1802 


SEA87 

EA87 

1822 

4791 




SED09 

ED09 

2826 

3198 4805 




SEDOC 

EDOC 

2866 

3078 3372 3401 

4803 



SED11 

EDI 1 

2234 





SED36 

ED36 

2188 

2197 




SED40 

ED40 

2107 

2215 




SEDB9 

EDB9 

2871 

3081 3374 3405 

4783 



SEDBE 

EDBE 

2200 

2235 2869 




SEDC7 

EDC7 

2832 

3200 4785 




SEDCC 

EDCC 

2829 





SEDEF 

EDEF 

2987 

3244 4799 




SEDFE 

EDFE 

2984 

3394 3406 4801 




SEE06 

EE06 

2293 





SEE85 

EE85 

2116 

2131 2153 2201 

2241 

2249 

2270 

SEE6E 

EE8E 

2121 

2140 2224 4766 




SEE97 

EE97 

2113 

2122 2128 2152 

2242 

2256 


SEEAO 

EEAO 

2150 

2199 2269 2290 




SEEA9 

EEA9 

2129 

2134 2136 2138 

2172 

2202 

2250 2261 2333 

SEEB3 

EEB3 

2123 





SEEBB 

EEBB 

4635 





SEF4A 

EF4A 

3109 





SF017 

F017 

2795 





SF028 

F028 

2545 





SF086 

F086 

2674 





SFOA4 

FOA4 

2101 

3759 




SF14E 

F14E 

2744 





SF199 

F199 

2700 

2703 2727 




SFIDO 

FIDO 

2917 





SF2F2 

F2F2 

2895 





SF30F 

F30F 

2800 

2840 2999 




SF314 

F3X4 

2879 





SF31F 

F31F 

2804 

2844 2884 




SF3D5 

F3D5 

3021 

3196 3369 




SF4B3 

F483 

2896 

3100 




SFSAF 

F5AF 

3038 

3193 3259 




SF5D2 

F5D2 

3215 

3307 




SF642 

F642 

2933 

3245 3387 




SF68F 

F68F 

3370 

3420 




SF72C 

F72C 

3046 

3266 3560 3663 




SF76A 

F76A 

2928 

3056 3427 3435 




SF7DO 

F7DO 

2914 

3029 3253 3416 

3582 

3649 

3684 

SF7D7 

F7D7 

3624 

3723 3740 




SF7EA 

F7EA 

3041 

3262 3674 




SF80D 

F80D 

2721 

2774 




SF817 

F817 

3036 

3257 3724 




SF82E 

F82E 

3692 

3697 3713 




SF838 

F838 

3053 

3418 3743 




SF841 

F841 

2723 

3547 
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SF84A F84A 3308 

SF864 F864 2776 2918 

SF867 F867 3429 

SF86B F86B 3627 

SF8D0 F8D0 3696 3786 

SF8E2 F8E2 3927 3960 3978 4009 

SFB8E FB8E 3376 4047 4139 4296 

SFB97 FB97 3770 4006 4236 4287 

SFBA6 FBA6 4217 

SFBAD FBAD 4213 

SFBB1 FBB1 4204 

SFC93 FC93 3795 4138 4323 

SFCBD FCBD 3767 4275 4291 

SFOCA FOCA 4270 4309 

SFCD1 FCD1 3381 4061 4146 4249 

SFCDB FCDB 3392 4120 4145 4261 

SFD02 FD02 4363 4598 

SFD15 FD15 4370 4608 4777 

SFD50 FD50 4369 4775 

SFDA3 FDA3 4368 4609 4773 

SFDDD FOOD 4312 4756 

SFE1C FE1C 2180 2272 2707 3236 4022 4057 4113 4152 

SFE27 FE27 2897 3141 

SFED6 FED6 4631 4641 

SFF07 FF07 4634 4647 

SFF2E FF2E 3128 

SFF99 FF99 893 

SFF9C FF9C 889 

SFFB7 FFB7 541 552 

SFFBA FFBA 595 602 608 640 649 656 

SFFBD FFBD 592 633 663 

SFFCO FFCO 577 

SFFC3 FFC3 585 

SFFC6 FFC6 481 

SFFC9 FFC9 957 

SFFCC FFCC 810 3505 3530 

SFFCF FFCF 473 

SFFD2 FFD2 469 2655 3329 3538 3568 

SFFD5 FFD5 536 

SFFD8 FFD8 519 

SFFE1 FFE1 3219 3385 3792 4603 

SFFE4 FFE4 485 

SFFEA FFEA 1788 

SFFF3 FFF3 411 


TA364 

A364 

547 

548 



IA376 

A376 

563 

564 



TB9BC 

B9BC 

762 

763 



TBFC4 

BFC4 

348 

349 



TE08D 

E08D 

431 

432 



TE092 

E092 

434 

435 



TE2E0 

E2E0 

667 

668 

771 

772 

TE2E5 

E2E5 

674 

675 



TE2EA 

E2EA 

683 

684 

696 

697 

TE2EF 

E2EF 

702 

703 



TE33E 

E33E 

765 

766 



TE3A2 

E3A2 

844 

873 



TE447 

E447 

938 




TE460 

E460 

921 

922 



TE473 

E473 

911 

912 



TE4EC 

E4EC 

3122 

3123 
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TE8DA E8DA 1579 

TEB79 EB79 1949 1951 

TEB81 EB81 1842 1844 1957 

TEBC2 EBC2 1958 

TEC03 EC03 1959 

TEC73 EC78 1960 

TECB9 ECB9 1105 

TECE7 ECE7 1147 

TECFO ECFO 1082 1610 1690 1739 

TFOBD FOBD 2652 

TF0C9 F0C9 

TFQD4 F0D4 

TF0D8 F0D8 

TFOES FOEB 

TF106 F106 

Tl'lOE FlOE 

TF116 FI16 

TF120 FI20 

TF127 F127 

TFD10 FD10 4378 

TFD30 FD30 4391 4392 

TFD9B FD9B 4328 4330 

TFEC2 FEC2 3118 3119 


VA463 

A4 6 3 

929 


WA57C 

A57C 

. 930 


WA71A 

A71A 

931 


«A7F4 


932 


VAE86 

AE85 

933 


WB1AA 

B1AA 

868 

869 

WB248 

B248 

860> 

861 

WB391 

B391 

864 

865 

V7E097 

E097 



WE12A 

E12A 



WE147 

E147 

493 

495 

WE1S6 

E156 



WE165 

E165 



WE168 

£168 



VE1BE 

E1BE 



VE1C7 

E1C7 



HE264 

E264 



VE2B4 

E2B4 



WE30E 

E30E 



WE38B 

E38B 

928 


WEA31 

EA31 

4411 

*475 

WEB48 

EB48 

1030 

1032 

HF13E 

F13E 

4422 


WF157 

F157 

4419 


WF1CA 

FICA 

4420 


WF20E 

F20E 

4416 


VF250 

F250 

4417 


WF291 

F291 

4415 


WF32F 

F32F 

4423 


VF333 

F333 

4418 


WF34A 

F34A 

4414 


WF4A5 

F4A5 

4425 


WF5ED 

F5ED 

4426 


UF6ED 

F6ED 

4421 


WF92C 

F92C 

4476 


WFBCD 

FBCB 

4474 


V.TC6A 

FC6A 

4473 
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VFCE2 FCE2 4856 

WFE43 FE43 4855 

WFE47 FE47 4413 

WFE66 FE66 4412 4424 

WFF48 FF48 4857 

X0014 0014 503 

X0079 0079 617 626 

X0100 0100 4083 4085 4095 4098 4741 

X01FC 01FC 885 

X01FD 01FD 884 

X0200 0200 4433 

X0259 0259 2943 2944 2960 2966 3010 

X0263 0263 2945 2946 2968 3016 

X026D 026D 2947 2948 2970 3014 

X0277 0277 1113 1115 1116 1148 1923 

X0281 0281 4576 4578 

X0282 0282 4466 4577 4579 

X0283 0283 4567 4569 

X0284 0284 4568 4570 

X0285 0285 4561 

X0286 0286 1038 1250 1382 1472 1585 1805 

X0287 0287 1137 1797 1804 

X02SS 0288 1044 1080 1714 1743 4468 

X0289 0289 1035 1921 

X028A 028A 1889 

X028B 028B 1040 1906 1909 

X028C 028C 1036 1885 1902 1904 

X028D 028D 1834 1861 1862 1915 1930 

X028E 028E 1916 1933 

X028F 028F 1031 1877 

X0290 0290 1033 

X0291 0291 1028 1935 2012 2017 2018 

X0292 0292 1131 1165 1277 

X0293 0293 2374 2426 2453 3105 3111 

X0294 0294 2366 2388 2493 2520 2573 3129 

X0295 0295 3125 3126 4695 

X0296 0296 3124 4697 4714 

X0297 0297 2412 2413 2509 2510 2539 2603 2608 2614 2748 3101 4538 4541 

X0298 0298 2397 2485 3110 4707 

X0299 0299 2559 4679 4719 

X029A 029A 2561 4682 4722 

X029B 029B 2478 2482 2605 3137 

X0?9C 029C 2480 2604 2610 3138 

X029D 0290 2399 2404 2548 3140 

X029E 029E 2400 2546 2550 3139 

X029F 029F 3764 4316 

X02A0 02A0 3766 3782 3800 4313 

X02A1 02A1 2416 2418 2463 2464 2527 2554 2582 2595 2621 2623 2629 3167 

4616 4624 4648 4686 4702 4703 
X02A2 02A2 3758 3831 

X02A3 02A3 3861 3915 

X02A4 02A4 3833 3918 3922 

X02A5 02A5 1605 1632 1666 1671 1687 1697 1707 

X02A6 02A6 3116 4506 4755 

X0300 0300 816 939 4434 

X03OC 030C 499 506 

X03OD 0300 500 507 

X030E 030E 501 508 

X030F 030F 497 510 

X0310 0310 859 
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X031X 0311 862 

X0312 0312 863 

X0314 0314 3763 4317 4329 4400 4404 4746 

X0315 0315 3765 3783 4315 4331 

X0316 0316 4744 

X0318 0318 4585 

X031A 031A 4813 

X031C 031C 4815 

X031E 031E 4817 

X0320 0320 4819 

X0322 0322 4821 

X0324 0324 4823 

X0326 0326 4825 

X0328 0328 4835 

X032A 032A 4837 

X032C 032C 4839 

X0330 0330 3174 

X0332 0332 3352 

X8000 8000 4365 

X8002 8002 4600 

X8004 8004 4379 

XAOOO AOOO 4373 

XA002 A002 4611 

XA408 A408 910 

XA437 A437 467 556 

XA43A A4 3 A 822 

XA474 A474 824 

XA52A A52A 566 

XA533 A533 571 

XA644 A644 924 

XA663 A663 462 

XA677 A677 572 

XA67A A67A 813 

XA6BE A68E 570 

XAB1E AB1E 549 565 913 923 

XAD8A AOSA 491 

XAD9E AD9E 659 

XAEFO AEFD 625 

XAF08 AF08 628 

XB6A3 B6A3 660 


XB79E 

B79E 

613 

635 



XB7F7 

B7F7 

492 




XB849 

B849 

6B9 




XB850 

B850 

685 

773 



XB853 

B853 

346 

682 



XBB67 

B867 

392 

436 

669 

698 

XB8D7 

B8D7 

451 




XBA28 

BA28 

363 

367 

383 

433 

XBAB9 

BAB9 

354 




XBA04 

BÀ04 

328 




XBB07 

BB07 

677 




XBBOF 

BBOF 

724 

764 



XBBA2 

BBA2 

430 

717 



XBBC7 

BBC7 

373 




XBBCA 

BBCA 

361 

708 



XBBD4 

BBD4 

454 




XBCOC 

BCOC 

673 

678 



XBCOF 

BCOF 

324 




XBC2B 

BC2B 

408 




XBCCC 

BCCC 

329 

679 
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XBDCD 

BDCD 

920 












XBFB4 

BFB4 

347 

695 

701 

757 

776 








XDOOO 

DOOO 

1106 












XDOli 

DOl 1 

3760 

3762 

4306 

4308 









XD012 

D012 

4751 












XD016 

D016 

4367 












XD018 

0018 

1937 

1939 

1999 

2004 

2006 








XD019 

D019 

4753 












XD021 

D021 

974 












XD418 

D418 

4492 












XDCOO 

DCOO 

1634 

1639 

1837 

1847 

1874 

1927 

3473 

3477 

4483 




XDCOl 

DC01 

1635 

1838 

1850 

1851 

3467 

3468 

3474 

3475 





XDC02 

DC02 

4494 












XDC03 

DC03 

4490 












XDC04 

DC04 

3827 

4509 

4514 










XDC05 

DC05 

3830 

4516 











XDCOé 

DC06 

3823 

3851 

3856 

4182 









XBC07 

DC07 

2165 

2253 

3829 

3848 

3852 

3857 

4183 





4126 

XDCOD 

DCOD 

1823 

2168 

2169 

2257 

2258 

3752 

3753 

3834 

3860 

3988 

3996 



4127 

4184 4311 

4481 

4761 








XDCOE 

DCOE 

3754 

3832 4485 

4762 

4765 








XDCOF 

DCOF 

2167 

2255 

3756 

3859 

4186 4487 







XDDOO 

DOOO 

2117 

2119 

2143 

2144 

2158 

2161 

2189 

2191 

2225 

2227 

2277 

2278 



2283 

2284 

2301 

2303 

2308 

2310 

2315 

2317 

2322 

2324 

2331 

2332 



3164 

3165 4496 

4620 

4623 








XDDOl 

DD01 

2391 

2524 

2530 

2532 

2534 

2535 

2579 

2585 

2587 

2588 

3132 

3162 



4674 












XDD02 

0002 

4498 












XDD03 

DD03 

3161 

4491 











XDD04 

0004 

2560 












XDD05 

DD05 

2562 












XDD06 

DD06 

4677 

4680 

4689 

4696 

4705 








XDD07 

ODO 7 

4681 

4683 

4690 

4698 

4706 








XDDOl) 

DOOO 

2415 

2419 

2462 

2627 

3159 

4482 

4595 

4596 

4625 

4649 

4687 


XDDOE 

OBOE 

2558 

2567 

4486 










XDDOF 

DDOF 

4488 

4685 

4700 




, 






ZOO 

0000 

3348 

4502 










4336 

ZOl 

0001 

1809 

1814 

1819 

1821 

3350 

3705 

3707 

3771 

3773 

4187 

4189 



4338 

4500 











Z02 

0002 

4432 












Z03 

0003 

870 












Z04 

0004 

871 












Z05 

0005 

866 












Z06 

0006 

867 












Z07 

0007 

330 












ZOA 

OOOA 

531 

533 

538 










Z12 

0012 

692 

694 

710 

720 









Z13 

0013 

812 

881 











Z16 

0016 

887 












Z18 

0018 

882 












Z22 

0022 

412 

415 

418 

421 

424 

661 







Z23 

0023 

413 

662 











Z2B 

002 B 

518 

534 

890 

900 

901 

908 

916 






Z2C 

002C 

535 

891 

903 

909 

919 








Z2D 

002D 

516 

561 











Z2E 

002E 

517 

562 











Z33 

0033 

896 












Z34 

0034 

897 












Z37 

0037 

461 

894 

914 










Z38 

0038 

460 

895 

918 
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Z49 

0049 

584 

601 

607 

636 

645 

655 


Z4A 

004 A 

643 

654 






24E 

004E 

712 

713 

722 

723 




ZS3 

0053 

878 







Z54 

0054 

858 







Z56 

0056 

323 

344 






257 

0057 

362 

365 

366 

715 

716 



25C 

005C 

393 

394 






261 

0061 

325 

339 

340 

447 

450 

758 


262 

0062 

416 

438 

440 





263 

0063 

422 

441 

443 





Z64 

0064 

419 

442 

444 





Z6 5 

0065 

425 

437 

439 





Z66 

0066 

446 

686 

690 

719 

754 



267 

0067 

375 

395 






Z68 

0068 

880 







269 

0069 

338 

341 






Z6E 

006E 

676 







26 F 

006 F 

352 

681 






Z70 

0070 

345 

448 






Z71 

007 L 

359 

371 

374 

376 

381 

384 

390 

Z72 

0072 

360 

372 

380 

382 

385 

391 


Z73 

0073 

874 







Z7a 

007A 

544 

837 






278 

007B 

558 

839 






Z8B 

008B 

428 

429 

452 

453 




Z90 

0090 

2291 

2732 

2834 

2873 

2955 

3076 

3082 3180 3203 3217 3218 3225 


3242 3269 3721 4551 4555 4556 


291 0091 981 3480 3501 

Z92 0092 3906 3907 3932 3939 

Z93 0093 3178 3230 3338 3545 3549 3722 4068 4102 4115 

294 0094 2103 2108 2209 2212 

295 0095 2111 2148 2187 2196 2217 

296 0096 3948 3963 3982 3986 3990 

Z97 0097 2673 2675 2699 2709 2716 

298 0098 2939 2940 2942 2957 2977 3003 3008 

299 0099 1103 1211 2572 2664 2681 2819 2985 2990 

29A 009A 1101 1214 2519 2756 2859 2982 2988 

29B 009B 3928 3951 3952 4170 4227 4228 4263 

Z9C 009C 3733 3874 3979 4007 

Z9D 009D 2650 3317 3442 3532 3562 4547 

Z9E 009E 2552 2768 2783 2790 3581 3597 3614 36L5 3621 3668 3675 3677 

3731 4079 4081 4088 4092 4134 

Z9F 009F 3612 3619 3622 3666 3672 3676 3732 4091 4100 4101 

ZAO OOAO 3455 3461 3464 3488 3495 

ZA1 OOA1 984 3453 3459 3465 3487 3494 3572 


ZA2 

OOA2 

3451 

3457 

3466 

3486 

3493 








ZA3 

00A3 

2106 

2109 

2132 

3878 

3923 

3955 

3967 

4166 4232 

4233 



ZA4 

00A4 

2282 

2294 

3908 

3910 

3921 

4168 

4219 

4221 





ZA5 

OOA5 

2142 

2162 

2248 

2264 

2273 

2276 

2288 

4238 

4242 

4298 



ZA6 

00A6 

2708 

2726 

2782 

3065 

3685 

3686 







ZA7 

OOA7 

2441 

2444 

2451 

2471 

2496 

4012 

4034 

4065 

4132 

4272 

4285 

4676 

2A8 

00 A8 

2438 

2450 

2456 

3898 

3984 

3999 

4169 

4200 

4206 

4708 



ZA9 

00a9 

2436 

2465 

2473 

3900 

3902 

3944 

4000 

4171 

4211 

4215 



ZAA 

OOAA 2445' 2484 

2513 

3728 

4014 

4025 

4042 

4043 

4046 

4052 

4123 


ZAB 

OOAB 

2442 

2443 

2497 

3626 

3742 

4049 

4141 

414 3 

4144 

4148 

4288 

4293 

ZAC 

OOAC 

1594 

1611 

1657 

1676 

1691 

1718 

1729 

3377 

3383 

4072 

4084 

4094 



4106 

4119 

4142 

4160 

4257 

4344 

4352 






ZAD 

OOAU 

1596 

1655 

1678 

1715 

1731 

3379 

4082 

4097 

4158 

4252 

4346 

4354 

ZAE 

OOAE 

1598 

1653 

1680 

1720 

1730 

3202 

3212 

3233 

.3238 

3239 

3299 

3311 
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3345 

3590 

3606 

3630 

3654 

4345 


- 





ZAF 

OOAF 

.iOO 

1651 

1682 

1734 

3208 

3214 

3241 

3302 

3312 

33*6 

3588 

3609 



3632 

3658 

434 7 










Z80 

00 bo 

3730 

3806 

3810 

3315 

3869 

3882 

3887 

3891 

3935 

3937 

3975 


ZB1 

OOB1 

3805 

3812 

3813 

3818 

3820 

3826 

3854 

3863 

3864 

3866 

3868 

3872 



3383 

3888 

3892 

3905 

3971 

3974 







ZB2 

OOB2 

2728 

2780 

2784 

3063 

3278 

3281 

3287 

3289 

3292 

3294 

3552 

3567 



3594 

3598 

3601 

3604 

3607 

3610 

3620 

3642 

3673 

4439 



ZB3 

00B3 

364 3 

4440 











ZB4 

00B4 

2348 

2358 

2373 

2376 

2378 

238S 

2398 

3729 

3896 

3913 

3953 

3965 



3980 

3989 

3994 










ZB5 

00B5 

2362 

2396 

3991 

4016 

4030 

4054 

4622 






ZB6 

OOB6 

2351 

2403 

4001 

4032 

4075 

4076 

4109 

4110 

4198 

4207 

4299 


ZB7 

00B7 

3039 

3073 

3088 

3094 

3102 

3188 

3260 

3321 

3325 

3331 

3365 

3616 



3669 

4521 











ZB8 

00B8 

2967 

2995 

3009 

4528 









ZB9 

00 B9 

2814 

2827 

2856 

2867 

2911 

2924 

2971 

3011 

30 L 3 

3033 

3058 

3071 



3079 

3192 

3195 

3199 

3284 

3364 

3373 

3398 

3402 

3422 

3431 

4530 

ZBA 

ooba 

2805 

2845 

2887 

2969 

3015 

3077 

3181 

3197 

3356 

3371 

3400 

4529 



4535 












ZBB 

OOBB 

3091 

3104 

3328 

3618 

3671 

4522 







ZBC 

OOBC 

4523 












ZBD 

OOBD 

2356 

2357 

2370 

2380 

2395 

3998 

4036 

4071 

4104 

4118 

4149 

4176 



4223 

4225 

4231 

4247 

4254 

4258 

4265 






ZBE 

OOBE 

3769 

4010 

4018 

4128 

4131 

4136 

4243 

4268 

4294 




ZBF 

OOBF 

3958 

3997 











ZCO 

ooco 

1813 

1817 

3774 










ZCl 

0OC1 

3304 

3349 

3586 

3600 

3634 

3651 

4159 

4445 

4448 

4449 

4452 

4453 



4456 












ZC2 

00C2 

3306 

3351 

3584 

3603 

3636 

3656 

4157 

4443 

4444 

4462 



ZC3 

00C3 

3172 

3211 

3279 

3298 

3303 

4397 

4402 

4403 





ZC4 

00C4 

3173 

3213 

3282 

3301 

3305 

4398 







ZC5 

OOCS 

1882 

1914 











ZC6 

OOC6 

1118 

1120 

1129 

1146 

1648 

1910 

1920 

1925 

2666 

3506 



za 

00C7 

1244 

1391 

1498 

1537 









ZC8 

OOCS 

1163 

1176 

1206 

2693 









ZC9 

00C9 

1168 

1172 

1522 

1604 

2686 








ZCA 

OOCA 

1174 

2684 





, 






ZCB 

OOCB 

1836 

1864 

1879 

1913 









ZCC 

OOCC 

1043 

1130 

1789 










ZCD 

OOCO 

1042 

1764 

1791 

1794 









ZCE 

OOCE 

1136 

1801 

1806 










ZCF 

OOCF 

1029 

1134 

1139 

1796 

1800 








ZOO 

GODO 

1156 

1186 

1209 

1334 

2691 








ZD1 

0001 

1083 

1157 

1192 

1370 

1372 

1381 

1449 

1460 

1462 

1471 

1719 

1740 



1753 

1771 

1778 

1798 









ZDZ 

00D2 

1081 

1744 

1780 










ZD3 

00D3 

1018 

1021 

1064 

1070 

1075 

1166 

1175 

1191 

1204 

1271 

1273 

1307 



1314 

1322 

1335 

1367 

1399 

1406 

1422 

1452 

1468 

1487 

1491 

1505 



1539 

1547 

1562 

1770 

1795 

2683 







ZD4 

00D4 

1167 

1200 

1235 

1237 

1260 

1385 

1444 

1538 





ZDS 

0005 

1092 

1155 

1272 

1294 

1297 

1321 

1378 

VOI 

1416 

1448 

1457 

2692 

ZD6 

0006 

1017 

1020 

1065 

1069 

1170 

1281 

1285 

1286 

1304 

1312 

1319 

1403 



141S 

1419 

1484 

1486 

1523 

1530 

1555 

1570 

1573 

1603 

1631 

1649 



1662 

1673 

2685 










ZD7 

0007 

1193 

1195 

1196 

1219 

1224 

1328 

1336 

3912 

3940 

3957 

4241 

4253 



4259 

4260 











ZD8 

00D8 

1247 

1249 

1258 

1354 

1474 

1477 

1536 

1692 





ZD9 

00D9 

1049 

1058 

1071 

1078 

1086 

1287 

1288 

1290 

1292 

1298 

1528 

1617 



1622 

1629 

1664 

1701 

1741 
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ZDA OODA 1612 1619 1699 1704 

ZFl 00F1 1626 1628 

ZF3 00F3 975 1374 1376 1383 1464 1466 1473 1721 1773 1779 1803 

ZF4 00F4 1783 

ZF5 00F5 1843 1856 1880 1950 

ZF6 00F6 1845 1952 

ZF7 00F7 2491 2609 3146 

ZF8 00F8 2898 2905 3142 3145 

ZF9 00F9 2402 2553 3151 

ZFA OOFA 2901 2906 3147 3150 
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LABEL ESA 


DECIM. 


VIC B2B4 DESCRIZIONE 


D6510 0000 0 —--Registro di indirizzo dati 6510 

R6510 0001 1 - Registro ingresso/uscita 6510 


0002 

2 

--- 

ADRAY1 0003-0004 

3-4 

0003 - 

ADRAY2 0005-0006 

5-6 

0005 - 

CHARAC 0007 

7 

0007 0003 

ENDCHR 0008 

8 

0006 0004 

TRMPOS 0009 

9 

0009 - 

VERCK OQQA 

10 

000A 009D 

COUNT OOOB 

11 

OOOB 0005 

DIHFLG OOOC 

12 

OOOC 0006 

VALTYP 0000 

13 

0000 0007 

INTFLG 000E 

14 

000E 0008 

GARBFL OOOF 

15 

OOOF 0009 

SUBFLC 0010 

16 

0010 000A 

INPFLG 0011 

17 

0011 OOOB 

TANSGN 0012 

18 

0012 OOOC 

CHANNL 0013 

19 

0013 OOOE 

LINNUH 0014-0015 20-21 

0014 0011 

TEMPPT 00X6 

22 

0016 0013 

LASTPT 0017-0018 

23-24 

0017 0014 

TEMPST 0019-0021 

25-33 

0019 0016 

INDEX 0022-0025 

34-37 

0022 001F 

INDEX1 0022-0023 

34-35 

0022 001F 

INDEX2 0024-0025 36-37 

0024 0021 

RESHO 0026-002A 

38-42 

0026 0023 

TXTTAB 002B-002C 

43-44 

002B 0028 

VARTAB 002D-002E 

45-46 

002D 002A 

ARYTAB 002F-0030 47-48 

O02D 002C 

STREND 0031-0032 

49-50 

0031 002E 

FRETOP 0033-0034 

51-52 

0033 0030 

FRESPC 0035-0036 

53-54 

0035 0032 

MEMSIZ 0037-0038 

55-56 

0037 0034 


Non usato 

Vettore di salto.Conv. da Floating/in 
tero 

Vettore di aalto.Conv. da intero a 
Floating 

Ricerca carattere. Idra. temp. durante 
INT 

Flag di ricerca apici a fine stringa 
Colonna video dopo ultimo TAB 
Flag: se OeLOAD se 1=VERIFY 
Puntatore Buffer Ingresso/N. indice 
Flag per mancanza dimens. matrici 
Flag categ. dati $FF=stringa $00=nume 
ri co 

Flag categ. dati $80=intero $Q0=virgo 
la mobile 

Flag scans. DATA/LIST/Garbage collect 
tion 

Flag indice riferimento chiamata funz 
z. utente 

Flag per Ingresso dati: $00=INPUT $40 
«GET *9B=R£AD 

Flag per segno TAN/confronto risultat 
i 

Flag per INPUT 
Temp: valore intero 

Puntatore tempo, allo Stack di string 
a 

Ultimo indirizzo, temporaneo di strin 

ga 

STACK tempo, per stringa 
Area di utilizzo puntatori 
Primo Puntatore 
Secondo Puntatore 

Risultato in virgola mobile di.moltip 
licazione e divisione 
Puntatore: inizio programmala Basic 
Puntatore: inizio variabili Basic 
Puntatore: inizio matrici del Basic 
Puntatore: Fine matrici (+1) 

Puntatore della fine zona Immag. Stri 
nghe 

Puntatore di utilità' generale per le 
stringhe 

puntatore indirizzo piu' alto usato 
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LABEL 

ESA 

DECIM. 

vie 

B2B4 

CURL1N 

0039-0G3A 

57-58 

0039 

0036 

OLDLIN 

003B-003C 

59-60 

003B 

0038 

OLDTXT 

003D-003E 

61-62 

003D 

003A 

DATLIN 

003F-0040 

63-64 

003F 

003C 

DATPTR 

0041-0042 

65-66 

0041 

003E 

INPPTR 

0043-0044 

67-6B 

0043 

0040 

VARNAM 

004 5-0046 

69-70 

0045 

0042 

VARPNT 

0047-004B 

71-72 

0047 

0044 

FORPNT 

0049-004A 

73-74 

0049 

0046 

VARTXT 

004B-004C 

75-76 

004B 

0048 

OPMASK 

004d 

77 

004D 

004A 

TENPF3 

004E-0052 

78-82 

004E 

004B 

F0UR6 

0053 

83 

0053 

0050 

JMPER 

0054-0056 

64-86 

0054 

0051 

TEMPF1 

0057-005B 

87-91 

0057 

0054 

TEMPF2 

OQSc-0060 

92-96 

005c 

0059 

FAC — 

— Zona dell'accumulatore 

1 per 

FACEXP 

0061 

97 

0061 

005E 

FACHO 

0062-0065 

98-101 

0062 

005F 

FACSGN 

0066 

102 

0066 

0063 

SGNFLG 

0067 

103 

0067 

0064 

BITS 

0068 

104 

0068 

0065 

AFAC— 

— Zona dell'accumulatore 

2 per 

ARGEXP 

0069 

105 

0069 

0066 

ARGHO 

006A-006D 

106-109 

006A 

0067 

ARGSGN 

006E 

110 

006E 

006A 

ARISGN 

006F 

111 

006F 

006C 

FACOV 

0070 

112 

0070 

006D 

FBUFPT 

0071-0072 

113-114 

0071 

006E 

CHRGET 

0073-008A 

115-138 

0073 

0070 

CHRGOT 

0079 

121 

0079 

0076 

TXTPTR 

007A-007B 

122-123 

007A 

0079 


DESCRIZIONE 


dal Basic 

Numero linea che il Basic sta trattan 
do 

Numero linea che il Basic trattava 
prima dell' attuale 
Puntatore Basic per comando CONf 
Numero di linea in cui e’ 1‘ attuale 
DATA 

Puntatore dell* indirizzo del DATA at 
tuale 

Vettore per la routine di INPUT 
Nome dell* attuale variabile 
Puntatore dell'attuale variabile 
Puntatore della variabile indice per 
FOR-NEXT 

Immag. tenp. per rout. TXTPTR durante 
READ,INPUT f GET 
MASK usata durante FRMEVL 
Immagazzinam. temp. per valore FLPT 
Lunghezza variabile stringa durante 
GARBAGE COLLECT 

Vett. salto usato in funz. JMP($4C) 
seguita da indir. 

Imm. temporaneo per valore FLPT 
Come sopra 

i valori in virgola mobile - 

FAC esponente 
FAC mantissa 
FAC segno 

Puntatore: costante valutazione sue 
cessiva 

Indicatore di OVERFLOW per FAC I 

i valori in virgola mobile - 

AFAC esponente 
AFAC mantissa 
AFAC segno 

Risultato confronto segni fra FAC e 
AFAC 

Arrotondamento del valore di FAC 
Puntatore Buffer di cassetta 
Subrout.: riceve il prossimo Byte del 
testo Basic 

Entrata per ottenere ancora lo stesso 
Byte del testo 

Puntatore: Byte attuale del testo Ba 
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LABEL ESA 


DECIM. 


VIC B2B4 DESCRIZIONE 


RNDX 

008B-00BF 

139-143 

008B 

0088 

STATUS 

0090 

144 

0090 

0096 

STKEY 

0091 

145 

0091 

009B 

SVXT 

0092 

146 

0092 

009C 

VERCK 

0093 

147 

0093 

009D 

C3P0 

0094 

148 

0094 

00A0 


BSOUR 

0095 

149 

0095 

00A5 

SYNO 

0096 

150 

0096 

OOAB 

TEMPX 

0097 

151 

0097 

OOAD 

TEMPY 

0097 

151 

0097 

OOAD 

LDTND 

0098 

152 

0098 

OOAE 

DFLNT 

0099 

153 . 

0099 

OOAF 

DFLTO 

009A 

154 

009A 

00B0 

PRTY 

009B 

155 

0O9B 

00B1 

DPSW 

009C 

156 

009C 

OOB2 

MSGFLC 009D 

157 

009D 

— 


PTR1 

009E 

158 

009E 

OOCO 

PTR2 

009F 

159 

009F 

00C1 

T1KE 

OOAO-OOA2 

160-162 

00A0 

008D 

TSFCNT 00A3 

163 

00 A 3 

00B7 

TBTCNT 

00 A4 

164 

00A4 

00B9 

BUFPNT 

OOA6 

166 

00A6 

OOBfì 

INBIT 

00A7 

167 

OOA7 


BITCI 00A8 
di cassetta 

168 

OOA8 

0OBE 

RINONE 

00A9 

169 

00A9 

OOBF 

RIDATA 

OOAA 

170 

OOAA 

OOC2 

RIPRTY 

OOAB 

171 

OOAB 

00C3 

SAL 

OOAC-OOAD 

172-173 

OOAC 

OOC7 

EAL 

00AE-00AF 

174-175 

OOAE 

00C9 

TAPE1 

OOB2-OOB3 

178-179 

00B2 

0QD6 

BITTS 

00B4 

180 

OOB4 

OOCE 


sic 

Funzione RND mobile 

Status W. per rout. Ker. in I/O 

Flag per tasti STOP e RVS 

Costante tempo, per nastro 

Flags; OssLOAD 1=VERIFY 

Flag: carattere in uscita sul Bus ser 

iale Bufferizzato 

Carattere memorizzato per uscita sul 
bus seriale 

Carattere di sincronizzazione da cass 
setta (vedi ST) 

Immagazzinamento temp. di X durante 
1' esecuzione di CHRIN 
Immagazz. tempo, di Y durante RS-232 
N. files aperti/ indice tavola Files 
Standard ingresso dati (0=Tastiera) 
Standard uscita dati(CMD) (3=videc) 
Carattere di parità* del nastro 
Flag: ricevuto Byte da nastro 
Flag: $00=m. programma, soppressione 
messaggi di errore. $40=m. Kernel inv 
io errori. $80=m.diretto, tutti gli e 
rrori 

Errore logico da nastro. Passo 1 
Errore logico da nastro. Passo 2 
Orologio Int.(CLOCK) in tempo reale 
Contat. per Bit da nastro R.o W./FLG 
Conteggio ciclo 

Puntatore: Buffer di 1/0 nastro 
RS232 imm. temp. ricez. bit/Temporizz 
. di cassetta 

RS232 contatore ingresso bit/tempo. 

Flag per RS232: controllo bit di part 
enza 

Buffer ingresso byte per RS232/Tempor 
izzazione cassetta 

INPUT di parità* per RS232/Controllo 
cassetta 

Puntatore: Buffer del nastro/scrollin 
g di schermo 

Indirizzo di fine nastro/ Fine del pr 
ograama 

Puntatore inizio Buffer nastro 
Cont. bit uscita per RS232/Flag tempo 
orizzazione lettura nastro 
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LABEL ESA 


DECIM. 


VIC B2B4 DESCRIZIONE 


NXTBIT 

nastro 

00B5 
per EOT 

181 

00B5 

OOCF 

RODATA 

00B6 

182 

00B6 

OODO 

FNLEN 

00B7 

183 

OOB7 

00D1 

LA 

00B8 

184 

0088 

00B2 

SA 

0089 

185 

OOB9 

00D3 

FA 

OOBA 

186 

OOBA 

00D4 

FNADR 

OOBB-OOBC 

187-188 

OOBB 

00D5 

HQPRTY 

OOBD 

189 

OOBD 

OODD 

FSBLK 

00 BE 

190 

OOBE 

OODE 

MYCH 

OOBF 

191 

OOBF 

OODF 

CASI 

00C0 

192 

OOCO 

00F9 

STAL 

OOC1-OOC2 

193-194 

00C1 

OOFB 

MEMUSS 

OOC3-OQC4 

195-196 

00C3 

_ 

LSTX 

00C5 

197 

OOCB 

0097 

NDX 

00C6 

198 

OOCB 

009E 

RVS 

00C7 

199 

OOC7 

009F 

INDX 

OOC8 

200 

00C8 

00A1 

LXSP 

OOC9-OOCA 

201-202 

00C9 

00A3 

SFDX 

KEYVAL 

OOCB 

203 

OOCB 

OOA6 


BLNSW 

OOCC 

204 

OOCC 

o 

o 

> 

BLNCT 

OOCD 

205 

OOCD 

00A8 

GDBLN 

OOCE 

206 

OOCE 

00A9 

BLNON 

OOCF 

207 

OOCF 

OOAA 

CRSW 

OODO 

208 

OODO 

OOAC 

PNT 

00D1-00D2 

209-210 

OOD1 

00C4 

PNTR 

00D3 

211 

00D3 

OOCB 

OTSW 

OOD4 

212 

O0D4 

OOCD 

L.NMX 

0005 

213 

OQD5 

OOD5 


Prossimo bit da inviare a RS232/Lett. 

Buffer per Byte in uscita su RS232/F1 
ag errore di lettura nastro 
N. di caratteri del nome del File 
N. dell'attuale file logico 
Attuale indirizzo secondario 
Attuale n. di periferica 
Puntatore: attuale indirizzo del nome 
del file 

Parità' di uscita per HS232/Temp. di 
cassetta 

Contatore dei blocchi in I/O per nast 
ro 

Buffer per porta seriale 

Interruttore per motore cassetta 

Indirizzo dì partenza per LOAD e Der 

scrittura cassetta 

Temp. di LOAD per cassetta 

Valore ultimo tasto premuto. $40=ness 

un tasto (64/VIC), $FF=(PET) 

N. di caratteri nella coda di tastier 
a (BUFFER-QUEUE) 

Flag per REVERSE $01=0N $00=OFF 

Puntatore fine linea per INPUT 
Posizioni X-Y cursore a inizio Input 
Flag: stampa caratteri shiftati 
Valore della matrice del tasto premut 
o durante 1' ultima scansione di tast 
ti era 

Lampeggio cursore $00=Abiiitato $01=d 
isabilitato 

Temporizzatore di conto alla rovescia 
per lampeggio cursore 
Carattere presente sotto il cursore 
Flag di stato del cursore $00=0FF $01 
=0N 

Flag: Input da schermo-$03, da tastie 
ra = $00 

Puntatore all* attuale linea di indir 
ìzzo schermo 

Posizione del cursore sulla colonna d 
eli' attuale linea 

Indicatore di cursore fra apici.$00-n 

o 

Lunghezza dell' attuale linea di sche 
rmo 
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VIC B2B4 DESCRIZIONE 


TBLX 

00D6 

214 

00D6 00D8 

SCHAR 

00D7 

215 

00D7 OOD9 

INSRT 

00D8 

216 

0008 00DC 

LDTB1 

OOD9-OOF2 

217-242 

00D9 OOEO 

USER 

OOF3-OOF4 

243-244 

00F3- 

KEYTAB 

OOF5-OOF6 

245-246 

00F5- 

RIBUF 

OOF7-OOF8 

247-248 

00F7- 

R0BUF 

00F9-00FA 

249-250 

OOF9- 

FREKZP 

00FB-00FE 

251-254 

OOFB- 

BASZPT 

OOFF 

255 

OOFF -- 

ASCWRK 

00FF-010A 

255-266 

OOFF OOFF 

BAD 

0100-013E 

256—••• 

0100 0100 

STACK 

0100-01FF 

256-*** 

0100 0100 

BSTACK 

013F-01FF 

319-*»* 

013F 013F 

BUF 

0200-0258 

512-600 

0200 - 

LAT 

0259-0262 

601-610 

0259 0251 

FAT 

0263-026C 

611-620 

0263 025B 

SAT 

026D-0276 

621-630 

026D 0265 

KEYD 

0277-0280 

631-640 

0277 026F 

HEMSTR 

0281-0282 

641-642 

0281 - 

HEMSIZ 0283-0284 

643-644 

0283 - 

TIKOUT 0285 

646 

0285 - 

COLOR 

0286 

646 

0286 - 

CDCOL 

0287 

647 

0287 - 

HI BASE 

0288 

648 

0288 - 

XMAX 

0289 

649 

0289 - 

RPTFLG 

028A 

650 

028A- 

KOUNT 

028B 

651 

028B - 


Attuale linea di schermo del cursore 
Valore dell* attuale carattere in ing 
resso/ Ultimo carattere uscito 
Flag: n. di volte dell' attuale tasto 
INST 

Tavola di collegamento linee schermo/ 
Immagazzinamento temp. EDITOR 
Puntatore per attuale colore di scher 
mo in RAM 

Vettore alla tavola di decodifica tas 
tiera * 

Puntatore Buffer ingresso RS232 
Puntatore Buffer usciita RS232 
Spazio lìbero per programmi utentein 
pagina ZERO 
Area per dati Basic 
Area assembler per conversione virgol 
a mobile in ASCII 
Errore di input da nastro 
Area di STACK hardware per 6510 
Area di STACK per il Basic 
Buffer di INPUT di sistema/ Da 0200 a 
0250 per PET 

Tavola KERNAL: numero del file logico 
attivo 

Tavola KERNAL: numero di periferica p 
er ogni file 

Tavola KERNAL: indirizzo secondario d 
i ogni file 

Coda del BUFFER di tastiera, (metodo 
FIFO) 

Puntatore al punto piu* basso della m 
emoria per Sistema Operativo 
Puntatore al massimo della memoria pe 
r il Sistema Operativo 
Flag: variabile KERNAL per Fuori temp 
orizzazione IEEE 

Codice dell* attuale colore del carat 
tere 

Colore di fondo sotto il cursore 
Byte alto indirizzo memoria schermo 
Massimo numero di Bytes nel Buffer di 
tastiera 

Flag di REPEAT $00=Cursore, INST, spa 
x io/$40=Nessun tasto/$80= Tutti i tas 
ti 

Contatore di velocita' di REPEAT 
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DELAY 

028C 

652 

028C 

— 

SHFLAG 

0280 

653 

028D 

0098 

LSTSHF 

028E 

654 

028E 


KEYLOG 

028F-0290 

655-656 

028F 

— 

MODE 

0291 

657 

0291 

— 

AUTODN 

0292 

658 

0292 

— 

M51CTR 

0293 

659 

0293 

— 

M51CDR 

0294 

660 

0294 

— 

M51AJB 

0295-0296 

661-662 

0295 

— 

RSSTAT 

0297 

663 

0297 

_ 

BITNUM 

0298 

664 

0298 

— 

BAUUOF 

0299-029A 

665-666 

0299 

— 

RIDBE 

029B 

667 

029B 

— 

RIDBS 

029C 

668 

029C 


RODBS 

029D 

669 

0290 

— 

RODBE 

029E 

670 

029E 

— 

IRQTMP 

029F-02A0 

671-672 

029F 

— 

ENABL 

02 Al 

673 

02A1 


TODSNS 

02A2 

674 

— 

— 

TRDTMP 

02A3 

675 

— 


TDlIRQ 

02A4 

676 

— 


TLNIDX 

02A5 

677 

— 

— 

TVSFLG 

02A6 

02A7-02FF 

678 

679-767 

02A1 

— 

IERROR 

0300-0301 

768-769 

0300 

_ 


Contatore del ritardo di REPEAT 
Flag tasto SHIFT.$00-Nessun tasto $01 
=Shift, $02=CBM, $04=CTRL (i valori s 
i sommano es. $07=SHIFT+CBM+CTRL} 
Ultimo tasto shift premuto 
Vettore:Routine per determinare la ta 
vola di tastiera 

Flag: cambiamento set-$00=disabilitat 
o,$80=abilitato 

Flag: scorrimento video-$00=disabilit 
ato 

RS232/registro di controllo immagini 
del 6551 

RS232/registro di comando immagine de 
1 6551 

RS232/non-standard,non utilizzato nel 
VIC in EUROPA 

RS232/registro di immagine del 6551 
Numero di bits rimasti da inviare 
RS232 baud rate-bit. in microsecondi 
Indicatore RS232 al termine del buffe 
r di INPUT 

Puntatore di RS232: Byte alto dell' i 
ndirizzo del buffer di ingresso dati 
Puntatore RS232: Byte alto dell' indi 
rizzo del buffer di uscita 
Indice RS232 al termine del buffer di 
uscita 

Immagazzinamento temporaneo del vetto 
re IRQ durante le operazioni su nastr 
o 

Abilitazione dell' RS232 

Controllo sensore cassetta durante le 

operazioni di I/O 

Immagazzinamento temporaneo durante I 
a lettura nastro 

Indicatore temporaneo di IRQ durante 
la lettura del nastro 
Indicatore temporaneo per indice line 
a di schermo 

Flag per TV-$00=NTSC, $01=PAL 
Area attualmente non utilizzata 

Vettore: ingresso indiretto al raessag 
gio di errore Basic,(X) indica'il mes 
saggio. Il contenuto normale e', nel 
CBM64 $E38B 


Appendice - 6 - 





LABEI. ESA 


ItKCIM. 


Vie B2B4 DESCRIZIONE 


XMAIN 

0302-0303 

770-771 

0302 - 

ICRNCH 

0304-0305 

772-773 

0304 - 

IQPLOP 

0306-0307 

774-775 

0306 - 

ICONE 

0308-0309 

776-777 

0308 -- 

IEVAL 

03QA-030B 

778-779 

030A- 

SAREG 

030C 

780 

030C- 

SXREG 

030D 

781 

030D - 

SYREG 

030E 

782 

030E- 

SPBEG 

030F 

783 

030F - 

USR POR 

0310 

784 

0000 0000 

USRADD 

0311-0312 

785-786 

0001 0001 


0313 

787 


CINV 

0314-0316 

788-789 

0314 0090 

CNBINV 

0316-0317 

790-791 

0316 0092 

NMINV 

0318-0319 

792-793 

0318 0094 

IOPEN 

031A-031B 

794-795 

031A- 

ICLOSE 

031C-031D 

796-797 

0310- 

ICHKIN 

031E-031F 

798-799 

031E - 

IOKOUT 

0320-0321 

800-801 

0320 - 

ICLRCH 

0322-0323 

802-803 

0322 - 

IBASIN 

0324-0325 

804-805 

0324 - 

IBSOUT 

0326-0327 

806-807 

0326 - 

ISTOP 

0328-0329 

808-809 

0328 - 


Vettore: ingresso indiretto per linea 
Basic e decodifica. CBM64- $A483 

Vettore: ingresso indiretto alla rout 
ine Basic codificata (TOKEN). CBM64=$ 
A57C 

Vettore: ingresso indiretto alla rout 
ine Basic LIST. CBM64=$A71A 
Vettore: ingresso indiretto per la ri 
cerca in Basic delle parole chiave. C 
BM64=$A7E4 

Vettore: ingresso indiretto al Basic 
per 1' elaborazione dei comandi (TOKE 
N). CBM64*$A£86 

Immagazzinamento di A durante 1* esec 
urlone di SYS 

Immagazzinamento di X durante 1' esec 
uzione di SYS 

Immagazzinamento di Y durante 1' esec 
uzione di SYS 

Immagazzinamento di SP durante I* ese 

dizione di SYS 

Funzione USR per JMP 

Indirizzo USR Byte basso/Byte alto 

Non uaato 

Vettore: indirizzo hardware per 1* in 
terrupt di IRQ. CBM64=$EA31 
Vettore: indirizzo di interrupt per I 
• istruzione BRK. CBM64=$FE66 
Vettore: Indirizzo Hardware di interr 
upt per 1’ istruzione NM1. CBM64» $FE 
47 

Vettore: ingresso indiretto per la ro 
utine Remai OPEN. CBH64=$F34A 
Vettore: ingresso indiretto per lo ro 
utine Remai CLOSE CBM64=$F291 
Vettore: ingresso indiretto per lo ro 
utine Remai CHKIN.CBM64=$F20E 
Vettore: ingresso indiretto per la ro 
utine Remai CHXOUT. CBM64=JF250 
Vettore: ingresso indiretto per la ro 
utine Kemal CLRCHN.CBM64=$F333 
Vettore: ingresso indirètto per la ro 
utine Remai CHRIN.CBM64=$F157 
Vettore: ingresso indiretto per la ro 
utine Kemal CHR0UT.CBN64=$F1CA 
Vettore: ingresso indiretto per la ro 
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ICETIN 032A-032B 810-811 032A - 

ICLALL 032C-032D 812-813 032C - 

USRCMO 032E-032F 814-815 03FA - 

ILOAD 0330-0331 816-817 0330 - 

ISAVE 0332-0333 818-819 0332 - 

0334-033B 820-827 0334 - 

TBUFFR 033C-03FB 828-1019 033C 027A 

03FC-03FF 1020-1023 03FC - 

VICSCN 0400-07FF 1024-2047 1E00 8000 


utine Remai STOP. CBM64=$F6ED 
Vettore: ingresso indiretto per la ro 
utine Remai GETIN.CBM64=SF13E 
Vettore: ingresso indiretto per la ro 
utine Remai CLALL. CBH64=$F32F 
Vettore definito dall* utente. Il con 
tenuto normale e* $FE66 
Vettore: ingresso indiretto per la ro 
utine Remai LQAD. CBM64=$F4A5 
Vettore: ingresso indiretto per la ro 
utine Remai SAVE. CB«64=$F5ED 
Normalmente non utilizzato 
Buffer del nastro per operazioni di I 
/0 

Normalmente non utilizzato 
Area di memoria dello schermo 
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LABEL 

C64 

V20 

B2.0 

B4.0 

BCOLD 

A000 

COOO 



BWARM 

A002 

C002 



STMDSP 

AOOC 

COOC 

COOO 

BOOO 

FUNDSP 

A052 

C052 

C046 

B066 

OPTAB 

A080 

C080 

C074 

B094 

RESLST 

A09E 

COSE 

C092 

B0B2 

NSCLST 

A129 

CI 29 

C11D 

B13D 

OPLIST 

Al 40 

C140 

CI 34 

B161 

FUNLST 

A14D 

C14D 

C141 

B16E 

ERRTAB 

A19E 

C19E 

C192 

B200 

ERRPTR 

A328 

C328 

— 


OKK 

A364 

C364 


— 

FNDFOR 

A38A 

C38À 

C2AA 

B322 


BLTU 

A3B8 

C3B8 

C2D8 

B350 

BLTUC 

A3BF 

C3BF 

C2DF 

8357 

GETSTK 

A3FB 

C3FB 

C31B 

B393 

REASON 

A408 

C408 

C32B 

B3A0 

OMERR 

A43S 

C43S 

C35S 

B3CD 

ERROR 

A437 

C437 

C357 

B3CF 

ERRFIN 

A469 

C469 

C37A 

B3F0 

READY 

A474 

C474 

C3S9 

B3FF 

MAIN 

A 480 

C480 

C392 

B406 

MAINI 

A4A2 

C4A2 

C3AB 

B41F 

INSLIN 

A4A2 

C4A2 

C3B1 

B47Q 


FINI 

A52A 

C52A 

C439 

B4AD 

LNKPRG 

A533 

C533 

C442 

B4BG 

INL1N 

A560 

C560 

C46F 

B4E2 


DESCRIZIONE 


Vettore Basic di RESET iniziale 

Vettore Basic di RESET con INTERRUPT 

Tavola dei vettori dei comandi Basic 

Tavola dei vettori delle funzioni Basic 

Vettore degli operatori Basic e tavola di prio 

rita' - 2 bytes di indirizzo e 1 di priorità’ 

Tavola delle parole chiave 

Tavola mista delle aprole chiave 

Tavola degli operatori delle parole chiave 

Tavola delle funzioni 

Messaggi di errore 

Puntatori ai messaggi di errore 

Nessun messaggio di errore-’ , ok , ’,"error'*,"in",’’ 

ready"."break”. 

Cerca il punto di entrata di FOR nello Stack o 
saltalo per cercare l'entrata di GOSUB dopo un 
RETURN 

Sposta in alto un blocco di memoria-controllo 
per memoria sufficiente 
Sposta un blocco da (LOVTR) a (HIGHTR) 
Controllo dello Stack per l’immissione di due 
bytes dell'accumulatore-errore di “OUT OF MEMO 
RY" se'non c’e’ posto 

Controllo che l’Indirizzo (A/Y) sia minore del 
lo spazio per le stringhe- se no... 

Stampa un messaggio di ”OUT OF MEMORY" 

Stampa il messaggio dì errore indicato da (X) 
poi — 

Stampa "ERROR" o "BREAK" 

Restart del BASIC - stampa "READY" poi ... 
Linea di INPUT - identifica un comando o una 1 
inea basic 

Se e’ una linea basic allora immetti il numero 
di linea e converti le parole chiave in TOKENS 
Inserisci un testo dal buffer del Basic entro 
un programma - il numero di linea in (LINNUM) 
in entrata - La linea deve avere le parole chi 
ave cambiate in tokens e la lunghezza della li 
nea in (Y)- se (BBUFF)=$00 allora la linea sar 
a* cancellata - la routine esiste come consegu 
enza di MAIN 

Dopo l’inserimento di una nuova linea nel test 
o basic esegui le routine di RUNC.LNKPRG e rie 
ntra alla routine MAIN 

Ricostruisce i puntatori di LINK del testo BAS 
IC 

Inserisce una linea nel buffer del baslc-immet 
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RDCHR 

CRUNCH 

A579 

C579 

C481 

C495 

B4FB 

FNDLIN 

A6I3 

C613 

C52C 

BSA3 

FNDLNC 

A617 

C617 

C530 

B5A7 

SCRATH 

A642 C642 

C55B 

B5D2 

SCRTCH 

A6S9 

C6S9 C55D 

B5D4 

RUNC 

A659 

C659 

CS72 

B6E9 

CLEAR 

A6SE 

C65E C577 

B6EE 

CLEARC 

A660 

C660 C579 BSFC 

LDCLR 

A677 

C677 

C590 

B60B 

STXPT 

ASSE 

C68E 

C5A7 

B622 

LIST 

A69C 

CG9C 

CSB5 

B630 

QPLOP 

A717 

C717 

C63A 

B6B5 

FOR 

A742 

C742 

C658 

B6DE 

NEWSTT 

A7AE 

C7AE 

C6C4 

B74A 

CKEOL 

A7C4 

C7C4 

C6DA 

B7F5 

GONE 

A7EI 

C7E1 

C6F7 

877C 

G0NE3 

A7ED 

C7ED 

C700 

B785 

RESTOR 

AS1D 

C81D 

C730 

B7B7 

STOP 

A82C 

C82C 

C73F 

B7C6 

END 

A82F 

C82F 

C741 

B7C8 


ti 00 al termine 

Immetti un carattere nell' accumulatore -se il 
carattere e* OF cioè' LINE-FEED inverti il fla 
g in OD per cancellare l'uscita 
Cambia le parole chiave in Tokens - la linea i 
n BBUFF -fissa TXTPTR a BBUFF- Y alla lunghezz 
a della linea e TXTPTR a BBUFF-1 in uscita 
Ricerca il testo BASIC dall' inizio per il num 
ero della linea in (LINNUM)...oppure — 

Ricerca il testo BASIC da (A/X) per il numero 
di linea in (LINNUM)- se lo trova fissa C e (L 
INPTR) all' inizio della linea- azzera C 
Punto di entrata di NEW- controllo di sintassi 
poi. 

Metti il primo Byte di testo a 00-fissa(VARTAB 
) a (TXTTAB)+2 poi... 

Resetta 1' esecuzione all* inizio del programm 
a (STXPTR) e dopo esegui la routine CLEARC 

Punto di entrata per CLEAR-controllo di sintas 
si poi.... 

Fipsa (FRETOP) a (MEMSIZ)-chiude le funzioni d 
i I/O-fissa (ARYTA8) a (VARTAB) poi... 

Esegui RESTOR-azzera (TEMPPT)-azzera lo STACK 
Metti (TXTPTR) al valore di (TXTTAB)-l per res 
ettare 1* esecuzione all* inizio programma. 
Punto di ingresso alla routine LIST 
Manipolazione dei caratteri in conseguenza del 
comando LIST-se trattasi di NON-TOKEN o TOKEN 
fra virgolette, allora stampali come sono. In 
caso contrario espandi i TOKENS e stampali 
Punto di ingresso alla routine FOR-salva(TXTPT 
B), (CURL1N) ed il valore finale nello STACK, 
dopo.... 

Controllo per tasto di HUN/STOP premuto- 

Controlla che la fine della linea sia anche la 

fine del testo - in caso contrario vai ai succ 

essivi parametri nella stessa linea 

Esegue il comando entro la linea 

Interpreta un comando basic e lo esegue 

Punto di entrata per il comando RESTORE - azze 

ra (DATPTR) all’inizio del basic 

Punto di ingresso per comando STOP - azzera il 

Carry per il messaggio di ''Break" poi salta en 

tra la routine di END 

Punto di ingresso per il comando END - Fissa i 
1 Carry poi _ ^ 
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FINID 

STPEND 

CONT 

RUN 

GOSUB 

GOTO 


A834 C834 C744 B7CB 
A 841 C841 C751 B7D8 

A857 C857 C76B B7EE 

A871 C871 C785 B808 
A883 C883 C790 B813 

A8AO C8A0 C7AD B830 


Se indiretto salva (TXTPTR) in (OLDTXT) poi.. 
Salva (CURL1N) in (OLDLIN) e vai alla routine 
di READY se il Carry = END) ae il Carry e* a a 
ero vai ERRFIN 

Punto di ingresso per il comando CONT - riposi 
Ziona (TXTPTR) e (CUHLINE) fino a quando (OLDT 
XT) non sia 0 (CAN'T CONTINUE) 

Punto di ingresso per RUN - esegue CLR e poi G 
OTO 

Punto di ingresso per GOSUB - salva (TXTPTR), 
(CURLIN) e il Flag di GOSUB (8D) nello Stack e 
poi esegue il GOTO 

Punto di ingresso per GOTO - legge il numero d 
al testo basic e lo inserisce in (LINNUM) poi. 


GOTOC 

A8A3 CBA3 C7B0 B833 

RETURN 

ABD2 

C8D2 

C7DA 

B85D 

RTC 

A8D4 

C8D4 

C7DC 

B85F 

DATA 

A8F8 

C8F8 

C8O0 

B883 

DATAN 

A906 

C906 C80E 

B891 

SERCHX 

A90B 

C90B 

C811 

B694 

IF 

A92B 

C92B 

C830 

B8B3 

REM 

A93B 

C93B 

C843 

BBC6 

DOCOND 

A940 

C940 C848 

B8CB 

ONGOTO 

A94B C94B 

C8S3 

B8D6 

LINGET 

A96B 

C96B 

C873 

B8F6 

-LET 

A9AS C9A5 

C8AD 

B930 

PTFLPT 

A9C4 

C9C4 

C8CC 

B94F 


Esegue la ricerca per la fine della linea attu 
ale - ricerca la linea (LINNUM) e fissa (TXTPT 
R) quando lo trova 

Punto di ingresso per RETURN - controlla la si 
ntassi poi... 

Esegue l'azzeramento dello Stack fino al primo 
punto di entrata di gosub - fissa poi (TXTPTR) 
e (CURLIN) dallo Stack 

Punto di ingresso per DATA - esegue la ricerca 
del testo per trovare la fine del comando 
Fissa la ricerca per i delimitatori del comand 
o (Virgola o Byte 0 ) dopo ricerca ... 

Ricerca nel testo (X) o Byte 0 - esce con (Y) 
fissato al numero di Byte da delimitare. 

Punto di ingresso per IF - valuta 1.' espressi© 
ne esegue la routine REM se IF= (falso) 

Punto di ingresso per REM - esegue la ricerca 
per il Byte 0 

Se la condizione relativa a IF e' non O (cioè* 
vera) allora esegui il comando o GOTO 
Punto di ingresso per ON - prende un numero da 
1 testo e ricerca il numero di linea esegui GO 
TO o GOSUB 

Legge un intero dai testo e lo immette in (LIN 
NUM) - da un errore se il valore non fra 0 e 
63999 

Punto di ingresso per LET - cerca la variabile 
obbiettivo nello spazio delle variabili e fiss 
a (FORPNT) con l'indirizzo della variabile - e 
labore l'espressione ed esegue PUTINT o PTFLPT 
O PUTTIK o GETSPT 

Immette 1 1 accumulatore tin virgola mobile (FAC) 
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entro la variabile il cui indirizzo e' dato da 
(FORPNT). 

PUTINT A906 C9D6 C8DE B961 Immette il valore intero contenuto in (FAC+3) 

entro la variabile il cui indirizzo e‘ in (FOR 
PNT) 

PUTTIM A9E3 C9E3 C8EB B972 Fissa TI$-fissa(INDEXl) in modo taleche punti 

alla stringa e (A) a 6 che e' la lunghezza del 
la stringa 

GETSPT AA2C CA2C C937 B9BA Immetti 1' identificatore della stringa punato 

da (FAC+3) entro la variabile stringa a cui pu 
nta (FORPNT). 

PRINTN AASO CASO C98B BA86 Punto di ingresso per PRINT! - esegue CMD per 

abilitare il Device corrente di I/O (manda 1* 
Onlisten alla IEEE se il numero di device e‘ 

3) 

CMD AA66 CA86 C991 BA8E Punto di ingresso per CMD - abilita al CMD il 

device definito dalla tavola di PRINT 

STRDON AA9A CA9A C9A5 BAA2 Routine di PRINT - stampa la stringa e control 

la per la fine della linea di PRINT 

PRINT AAAO CAAO C9AB BAA8 Punto di ingresso per PRINT - identifica i par 

ametri di PRINT (SPC, TAB etc) - valuta 1' esp 
ressione. 

VAROP AAB8 CAB8 C9C3 BACO Uscita varlabile-(se numero lo converte lin st 

ringa)-useita stringa 

NUMDON AABC CABC C9C7 BACA Stampa routine-stampa numerico 

CRDO AAD7 CAD7 C9E2 BADF Uscita CR/LF-nel VIC e CBM64 se (CHANNL) maggi 

ore di 127 solo uscita CR 

COMPIR AAE8 CAE8 C9EF BAFO Stampa tabulazioni e spazi per delimitatori vi 

rgola-funzioni SPC o TAB 

STROUT AB1E CB1F CA1C BB1D Stampa la stringa puntata da (A/Y) fino a che 

non trova 1 byte a zero 

STRPTR AB21 CB21 CA1F BB20 Stampa la stringa puntata da (FAC 3) finche' n 

on trova un Byte a zero 

OUTSTR AB24 CB24 CA22 BB23 Stampa la stringa puntata da (INDEX1) di lungh 

ezza (A) 

OUTSPC AB3B CB3B CA39 BB3A Stampa spazio 

PRTSPC AB3F CB3F CA3D BB3E Stampa SEMPRE uno spazio 

OUTSKP AB42 CB42 CA40 BB41 Stampa sempre il cursore a destra 

OUTQST AB45 CB45 CA43 BB44 Stampa punto interrogativo 

0UTD0 AB47 CB47 CA4S BB46 Stampa (A) 

TRMNOK AB4G CB4D CA4F BB4C Manipolazione dei messaggi di errore per GET.I 

NPUT e READ 

GET AB7B CB7B CA7D BB7A Punto di ingresso per GET- Controlla che non s 

ia un comando diretto, identifica CETE, immett 
e un carattere 

INPUTN ABA5 CBA5 CAA7 BBA4 Punto di ingresso per INPUT£-fissa la periferi 

ca di input, esegue I' input poi mette la IEEE 
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INPUT 

ABBF 

CBBF 

CACI 

BBBE 

BUFFUL 

ABEA 

CBAE 

CAED 

BBE8 

QINLIN 

ABF9 

CBF9 

CAFA 

BBF5 

READ 

AC06 

CC06 

CB07 

BC02 

INPCON 

ACOD 

CCOD 

OBOE 

BC09 

INPC01 

ACOF 

CCOF 

CB10 

BCOB 

RDGET 

AC36 CC3S CB36 

BC31 

RDINP 

AC43 

CC43 

CB44 

BC3F 

DATLOP 

ACB8 

CCB8 

CBB9 

BCB4 

EXINT 

ACFC 

CCFC 

CBFC 

BCF7 

TRYAGN 

ADOC 

CDOC 

CCOD 

RDOT 

NEXT 

AD1E 

CD1E 

CC20 

BD19 

DONEXT 

AD61 

CD61 

CC62 

BD5B 

CHKNUM 

AD8D 

CD8D 

CC8E 

BD87 

CHKNUM 

AD8F 

CD8F 

CC90 

BD89 

FRMWUM 

AD8A 

CD8A 

CC8B 

BD84 

FRMEVL 

AD9E 

CD9E 

CC9E 

BD98 


in UNLÌSTEN, se la periferica e' maggiore di 3 
Punto di ingresso per comando INPUT- visualizz 
a un messaggio se esiste, esegue quindi 1* inp 
ut 

Legge 1* input-se (BBUFF) e' zero, cioè 1 nessu 
na stringa in ihput il VIC 20 ed il CBM&$ salt 
ano, BASIC 2/4 arrestano 1’ operazione 
Stampa ? e immette i dati nel buffer (BBUFF) 
Punto di ingresso per il comando REAB-fissa il 
flag di READ(98) in (INPFLG), fissa (X/Y) =(DA 
TPTR) 

Punto di ingresso a READ per INPUT—fissa il fi 
ag di INPUT(OO) in (INPFLG), fiBSB (X/Y)=BUF 
Punto di ingresso di READ per GET-fissa il 
Parte della routine READ che esegue il GET di 
1 Byte 

Parte della routine di READ che esegue il coma 

ndo INPUT usando la routine RDGET 

Parte della routine di READ che esegue il READ 

dei DATA, usando RDGET 

Stringa ASCII-"?EXTRA IGNORED" 

Stringa ASCII-”?R£D0 FROM START” 

Punto di ingresso per NEXT-ìmmette la succesai 
va (NEXT) variabile e conferma che il corriapo 
ndente comando FOR sia nello STACK, calcola il 
prossimo valore di variabile ciclo 
Se il contatore di ciclo e* un valore valido, 
fissa(CURLIN) e (TXTPTR) dallo STACK e reiamet 
te il FOR nel ciclo 

Controlla la routine (VALTYP) per i risulatati 
numerici provenienti da (FRMEVL-vedi dopo)-va 
in READY con un "TYPE MISMATCH" se e’ rilevato 
un risultato numerico 

Controlla la routine (VALTYP) per risultato st 
ringa-il resto vedi preecedente 
Valuta una espressionenumerica dal testo Basic 
, mette in funzionela routine FRM£LV(vedi dopo 
) poi la (CHKNUM) 

Immette e valuta una qualsiasi espressionedel 
testo Basic. Fiissa VALTYP (00 se numerica, FF 
se stringa) e XNTFLG (00 se in virgola mobile, 
80 se intero) 

Se 1’ espressione e' numerica in virgola mobil 
e, il risultato e* immesso in FAC. Se 1* espre 
ssione e’ un intero numerico, allora il risult 
ato e* riportato in FAC+3 nel formato H1/L0. S 
si tratta di un' espressione stringa, allora i 
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1 puntatore alla descrizione della stringa e’ 
riportato in (FAC+3). Questo e' di solito un c 
opia di VARPNT. In aggiunta se 1* espressione 
' e’ una variabile semplice, allora la routine V 
ARNAM punterà' al primo Byte del nome. Per con 
eludere, se Sara' rilevato un errore nell' esp 
ressione allora torneremo in Basic con READY p 
receduto da "SYNTAX ERROR" 

EVAL AE83 CE83 CD84 BE81 Valuta il singolo termine in un' espressione. 

Identifica le funzioni pi greco,TI,TI$, ecc. 

PIVAL AEA8 CEA8 CDA3 BEAO Valore in virgola mobile di pi-greco nel forma 

to MFLPT.-3.141S965 

qdot AEAD CEAD CDAB BEA5 Valuta un termine non variabile in un' espress 

ione 

PARCHE AEF1 CEFI CDEC BEE9 Valuta un' espressione in parentesi 

CHKCLS AEF7 CEF7 CDF2 BEEF Controlla che il carattere puntatofindirizzato 

) da TXTPTR sia una parentesi destra. Se non e 
' cosi’ stampa "SYNTAX ERROR" 

CHKOPN AEFA CEFA CDFS BEF2 Controllo come sopra per parentesi sinistra 

CHKCOM AEFD CEFD CDFB BEF5 Controlla che il carattere a cui punta TXTPTR 

sia una virgola. Se non e' visualizza "SYNTAX 
ERROR" 

SYNCHR AEFF CEFF CDFA BEF7 Controlla che il carattere puntato da TXTPTR s 

ia lo stesso contenuto in Accumulatore, altrim 
enti vedi sopra 

SYNERR AF08 CF08 CE03 BFOO Stampa il messaggio di errore "SYNTAX ERROR" e 

ritorna in modo Basic con Ila scritta Ready 

RSWAR AF14 CF14-Setta il Carry se la variabile puntata da (FAC 

+3) e’ una parola riservata es. ST,TI,TI$ 

ISVAR AF28 CF28 CEOF BF04 Cerca una variabilecon nome nel testo Basic.Fi 

ssa (VARNAM) a puntare al nome della variabile 
nella tavola se e' trovato.Immette un valore 
numerico in FAC, il puntatore stringa in (FAC 
3). 

TISASC AF48 CF48 CE2E BFAD Converte TI in una stringa ASCII e fissa FAC+E 

a puntare alla stringa 

ISFUN AFA7 CFA7 CE89 0037 Valuta la funzione. Riporta il valore numerico 

in FAC, il valore stringa come puntatore in FA 
C+3 

STRFUN AF81 CFB1 CE93 COSI Salva 1* indicatore stringa di una funzionestr 

inga nello Stack e lo valuta 

NUMFUN AFD1 CFD1 C£B3 C071 Valuta 1' argomento di una funzione numerica e 

calcola il valore della funzione 

0R0P AFE6 CFE6 CEC8 C086 Esegue OR. Fissa il flag di OR e usa ANDOP per 

la valutazione della funzione 

ANDOP AFE9 CFE9 CECB C089 Esegue AND. Fissa il flag di AND poi converte 

il valore in virgola mobile a fisso, esegue AN 
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COREL BOI 6 D016 CEF8 COB6 

NUMREL BOIB DOIB CEFD COBB 

STRREL B02E D02E CFIO COCE 

DIM B081 DOSI CF63 C121 

PPTRGET B08B DOBB CF6D C12B 

ORDVAR B0E7 DOE7 CFC9 C1B7 

ISLETC B113 D113 CFF7 C1B6 

NOTFNS B11D D11D DOOl C1CO 

NOTEVL B128 D128 DOOC C1CB 

FMAPTR B194 D194 D078 C2C8 

N32768 B1A5 D1A5 D089 C2D9 

FACINX B1AA D1AA- 

INTIDX B1B2 DIB2 D08D C2DD 

AYINT B1BF D1BF D09A C2EA 

ISARY B1D1 OIDI DOAC C2FC 

FNDARY B218 D218 DOF3 C343 

NOTFDD B26I D261 D13C C38C 

INLPN2 B30E D30E D1EA C439 

UMULT B34C D34C D228 C447 

FRE B37D D37D D259 C4A8 

GIVAYF B391 D391 D26D C4BC 

SNGFT B3A2 D3A2 D27C C4CB 


D ( o OR se e' fissato il flag dii OR) poi rie 
onverte in virgola mobile 

Esegue una delle relazioni (maggiore, minore o 
uguale). Se e' un'espressione numerica usa NUM 
REL, se e' un' espressione stringa usa STRREL 
Esegue un confronto numerico 
Esegue un confronto stringa 
Esegue DIM 

Identifica una variabile con nome nel testo Ba 
sic e piazzai! nome, non il puntatore al nome, 
in (VARNAM) 

Cerca una variabile il cui nome sia in VARNAM 
e fissa (VARPNT) perche' ci punti. Se necessar 
io usa NOTFNS per creare una nuova variabile 
Setta il Carry se nell' accumulatore e’ presen 
te una lettera 

Crea una nuova variabile con nome come in (VAR 
NAM), a meno che PTRGET sia chiamata in funzio 
ne da ISVAR 

Crea una nuova variabile con nome come in (VAR 
NAM) e fissa (VARPNT) per puntare ad essa 
Fissa (ARYPNT) all* inizio della matrice ed im 
metta 11 numero di dimensioni della matrice In 
COUNT 

Valore in virgola mobile di 32768 in formato F 
LPT 

Converte (fAC) in intero in (A/Y) 

Valuta un* espressione presente nel testo Basi 
c come intero nell 1 intervallo -32768 e *32767 

Valuta 1’ espressione in testo Basic come inte 
ro positivo ( da 0 a +32767) 

Prende i parametri delle matrici dal testo Bas 
ic e li immette nello Stack 

Trova la matrice-il nome in VARNAM, i parametr 
i sono letti da ISAHY 

Crea una matrice dai par-metri nello Stack 
Fissa (VARPNT) per pntare ad un* elemento entr 
o la matrice 

Calcola il numero di Bytes nella dimensione (Y 
) della matrice con inizio a (VARPNT) 

Punto di ingresso per la funzione FRE-esegue 1 
a garbage collection e fissa il valore della f 
unzione a (FRETOP)-(STREND) 

Converte l'intero in (A/Y) in FLPT in FAC nell 
intervallo fra 0 32767 

Converte (Y) a formato FLPT in (FAC) nell' int 
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ERRDIR 

DEF 

GETFNM 

FNDEOR 

SETFNV 

STRD 

STRINI 

STRILI 

PUTNW1 

GETSPA 

GARBA2 

DVARS 

GRBPAS 

CAT 

MOVINS 

FRESTR 

FREFAC 

FRETMS 

CHRD 

LEFTD 

RIGHTD 

MIDD 


B3A6 

D3A6 

D280 

C4CF 

B3B3 

D3B3 

D28D 

C40C 

B3E1 

D3E1 

D2BB 

C50A 

B3F4 

D3F4 

D2CE 

C51D 

B423 

D423 

D2FD 

C54C 

B465 

D465 

D33F 

C58E 

B475 

0475 

D34F 

C59E 

B487 

0487 

D361 

C5B0 

B4D5 

D4D5 

D3AF 


B4F4 

D4F4 

D3CE 

C61D 

B526 

0526 

0400 

C66A 

B5BD 

05BD 

0497 


B606 

0606 

D40E 


B63D 

D63D 

0517 

C74F 

B67A 

D67A 

0554 

C78C 

B6A3 

D6A3 

D57D 

C7B5 

B606 

0606 

0580 

— 


B6DB 

D6DB 

D5B5 

cali 

B6EC 

D6EC 

D5C6 

C822 

B700 

D7QO 

D5DA 

C836 

B72C 

D72C 

D600 

C862 

8737 

D737 

D611 

C860 


ervallo da 0 a 255 

Stampa "ILLEGAL DIRECT”, se e * in modo diretto 
- per esempio (CURLIN) =$FF 

Punto di ingresso per DEF-crea la funzione FN 
Controlla la sintassi di FN, localizza 1’ indi 
catore di FN e fissa DEFPNT perche’ punti all 1 
indicatore 

Punto di ingresso per la funzione FN-riceve 1' 
indicatore di FN, poi... 

Fissa (TXTPTR) all' inizio di FN nel testo, va 
luta 1* espressione,resetta quindi (TXTPTR) 
Punto di ingresso per la funzione STR$, valuta 
1* espressione e la converte in stringa ASCII 
Crea spazio per la stringa il cui indicatore e 
* in FAC 3 e la cui lunghezza in (A). Termina 
con un nuovo indicatore in (DSCTMP) ed un punt 
atore al vecchio indicatore e' in (DSCPNT) 
Esamina la strìnga che parte da (A/Y) e crea u 
n indicatore. Termina con (FAC 3) che punta al 
1* indicatore 

Fissa 1* indicatore allo Stack indicatore e ri 
crea il puntatore 

Fìssa (FRETOP) e (FRESPC) per una nuova string 
a la cui lunghezza e’ in (A) 

Esegue la GARBAGE COLLEGIION-chiude lo spazio 
nella STRINGA SPAZIO utilizzata per le strìngh 
e scartate 

Ricerca le tavole di variabili e matrici per i 
1 successivo indicatore di stringa che deve es 
sere salvato dalla GARBAGE COLLECTION 
Riutilizza lo spazio di stringhe cancellate 
durante la GARBAGE COLLECTION 
Concatena due stringhe in una espressione poi 
continua la valutazione dell' espressione 
Trasferisce la stringa il cui indicatore e‘ in 
dicato da (STRNG1) 

Conferma del modo stringa poi... 

Esegue 1* inquadramento e 1* allocazione della 
stringa. Inizia con il puntatore all' indicato 
re della stringa in (FAC+3) ed esce con la lun 
ghezza in (A) e (INDEX1) che punta all' inizi 
o della stringa stessa 

Aggiorna l'indicatore di stringa nello SP 
Punto di ingresso per la funzione CHR$ 

Punto di ingresso per la funzione LEFT$ 

Punto di ingresso per la funzione RIGHT$ 

Punto di ingresso per la funzione MID$ 
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PREAM B761 D761 D63B C897 Estrae dallo Stack il puntatore all' indicator 

e stringa, lo immagazzina in (DSCPNT), immette 
il parametro stringa in (a) 

LEN B77C D77C D656 C8B2 Punto di ingresso per la funzione LEK 

LENI B782 D782 D65C C8B8 Esegue il posizionamento della stringa, dopo f 

orza 1' entrata del modo numerico e quindi esc 
e con la lunghezza della stringa in <Y) 

ASC B78B D78B 0668 C8C1 Punto di ingresso per la funzione ASC, prende 

il primo carattere nella stringa e lo converte 
in formato FLTP 

GTBYTC B79B D79B D687 C8D1 Valuta un' espressione nel testo. Controllo di 

validità' per intervallo da 0 a 256, in caso c 
ontrario visualizza un "ILLEGAL QUANTITY ERROR 
Riporta il valore in (X) 

VAL B7AD 07AD D687 C8E3 Punto di ingresso per la funzione VAL. Confermi 

a che 1' argomento sia una stringa poi... 
STRVAL B7B5 D7B5 D68F C8F5 Converte una stringa di inizio a (INDEX1) e di 

lunghezza (A) in valore FLTP in (FACI 
GETNUM B7EB D7EB 06C6 C921 Legge i prametri dal testo Basic relativamente 

ai comandi POKE o WAIT, immagazzina il primo i 
ntero in (INDEX1), il secondo intero in (INDEX 
2 ) 

GETADR B7F7 D7F7 D6D2 C92D Converte FAC in intero nel (INDEX1) nell' inte 

rvallo da 0 a 65535 

PEEK 6800 D80D D6EB C943 Punto di ingresso per PEEK 

POKE B824 0824 D707 C95A Punto di ingresso per POKE 

WAIT B82D D82D 0710 C963 Punto di ingresso per WAIT 

FADDH B849 0849 D72C C97F Somma 0.5 al FAC 

FSUB B8S0 D850 0733 C986 Sottrazione in virgola mobile: (FAC)=MFLPT a ( 

A/Y)- (FAC) 

FSUBT B853 0853 D736 C989 Punto di ingresso per sottrazione:(FAC)=(ARG>- 

(FAC) 

FADD5 B862 D862 D76E C998 Parte della routine di normalizzazione della s 

omma 

FAD B867 0867 D773 C99D Somma in virgola mobile: (FAC)=MFLPT a (A/Y)»( 

FAC) 

FADDT B86A D86A 0776 C9AO Punto di ingresso per la somma:(FAC)=(ARG)-*(FA 

C) 

OVER B97E 097E D88A CAB4 Stampa il messaggio''0VERFL0W ERROR" 

MULSHF B983 D983 D88F CAB9 Moltiplicazione di un Byte 
F0NE B9BC D9DC D8C8 CAF2 Costante 1.0 nel formato MFLPT 

B9C1 D9C1 D8C0 CAF7 Diverse costanti usate per la valutazione di f 
unzioni 

LOG B9EA D9EA D8F6 CE20 Esegue la funzione LOC-controlla che 1' argome 

nto della funzione sia positivo dopo calcola i 
1 valore di LOG in base e 

FMULT BA28 DA28 0934 CB5E Moltiplica il (FAC) pe» MPLPT il cui indirizzo 
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FMULTT 


HLTPLY 

CONUPK 

KULDIV 

MLDVEX 

MUL10 

TENC 

DIVIO 

FDIVF 


FDIV 

FDIVT 


MOVFM 

M0V2F 

HOV1F 

MOVXF 

MOVMF 

MOVFA 

MOVAF 

ROUND 

SIGN 

SGN 

ACTOFC 

INTOFC 


ABS 

FCOMP 


QINT 

INT 


BA30 DA30 D934 CB5E 


BA59 DA59 D965 CB8F 

BA8C DA8C D998 CBC2 

BAB7 DAB7 D9C3 CBED 

BAD4 DADA D9EO CCOA 
BAE2 DAE2 D9EE CC18 
BAF9 DAF9 DA05 CC2F 
BAFE DAFE DAOA CC34 
BB07 DB07 DAI3 CC3D 


BBOF DBOF DA1B CC45 
BB12 DB12 DA1E CC48 


BBA2 DBA2 DAAE CCD8 
BBC7 DBC7' DAD3 CCFD 
BBCA DBCA DAD6 CDOO 
BBDO DBDO BADC CD06 

BBD4 DBD4 DAEO CD06 

BBFC DBFC DB08 CD32 
BCOC DCOC DB18 CD42 
BC1B DCIB DB27 CD51 
BC2B DC2B 0837 CD61 

BC39 DC39 DB45 CD6F 
BC3C DC3C DB48 CD72 
BC44 DC44 DB50 CD7A 


BC58 DC58 DB64 COSE 
B5CB DC5B DB67 CD91 


BC9B DC9B DBA7 CODI 
BCCC OCCC DBDB CE02 


e 1 contenuto in (A/Y), risposta in (FAC) 

Esegue la routine di moltiplicazione in virgol 
.a mobile. Moltiplica (FAC) per (AFAC) il risul 
tato in (FAC) 

Moltiplica (FAC) per 1 Byte, il risultato in R 
E SHO 

Carica AFAC con il valore di MFLPT indirizzato 
da (A/Y) 

Subroutine di moltiplicazione per controllare 
FAC e AFAC per UNDERFLOW/OVERFLOW 
Manipola 1’ errore di OVERFLOV o di UNDERFLOW 
Moltiplica il FAC per IO, il risultato in FAC 
Costante IO nel formato MFLPT 
Divide (FAC) per 10, la risposta in FAC 
Divide AFAC per il valore MFLPT indirizzato da 
(A/Y) e il cui segno e* contenuto in X. La ris 
posta viene messa in FAC 

Divide AFAC per MFLPT indirizzato da (A/Y). La 
risposta va in FAC 

Esegue la routine di divisione in virgola mobi 
le-(AFAC) e' diviso da FAC, la risposta in FAC 
. All' ingresso della routine (A)=(FACEXP) 
Carica FAC con MFLPT indirizzato da (A/Y) 
Immagazzina il contenuto di FAC in TEMPF2 
Immagazzina il contenuto di FAC in TEMPF1 
Immagazzina il contenuto di FAC nella locazion 
e indirizzata da (FORPNT) 

Immagazzina FAC nella locazione ilcui indirizz 
o e* in (X/Y) 

Carica FAC da AFAC 
Carica AFAC da FAC 

Arrotonda il contenuto di FAC nel FAC stesso 
Trova il segno di FAC,-il risultato e' immesso 
in A-$01=positivo,$00-zero,$FF-negativo 
Esegue la funzione SGN 
Immagazzina (A) in FAC 

Immagazzina un intero presente in (FACt1) come 
FLTP nel FAC. In ingresso X dovrebbe contenere 
$90 

Esegue la funzione ABS 

Confronta (FAC) con MFLPT indirizzato da (A/Y) 
il risultato e' riportato in A : $0=FAC maggio 
re del valore di MFLPT, $00=al valore di MFLPT 
, $FF=FAC minore di FLMPT 

Converte un valore,FLPT presente in FAC in qua 
ttro Bytes interi in FAC+1 nella forma HI LOW 
Esegue INT- converte FAC in intero poi lo rico 


Appendice - 18 - 



LABEL C64 V20 B2.0 B4.0 DESCRIZIONE 


FIN 

BCF3 

DCF3 

DBFF 

CE29 


BDB3 

DDB3 

DCBF 

CEE9 

INPRT 

BDC2 

D0C2 

DCCE 

CF78 

LINPRT 

BDCO 

DDCD 

DCD9 

CF83 

FACOUT 

BDD7 

DDD7 

DCE3 

CF8D 

FOUT 

BDDD 

DODO 

DCE9 

CF93 

FYOUT 

BDDF 

DDDF 

OCEB 

CF95 

FOUTIH 

BE6S 

DE68 

DD74 

D01E 


BF11 

DF11 

DE1Ù 

D067 

SQR 

BF71 

DF71 

DE5E 

D108 

FPWRT 

BF7B 

DF7B 

DE68 

DI 12 

NEGO? 

BFB4 

DFB4 

DEAI 

D14B 


BFBF 

DFDF 

DEAC 

0156 

EXP 

BFED 

DFED 

DEDA 

D184 

POLYX 

E 043 

E040 

DF2D 

D1D7 



E08D 

EOBA 

DF77 

D221 

RND 

E097 

E094 

DF7F 

D229 

BOERR 

E0F9 

EOF6 

— 

— 

BCHOUT 

E10C 

E109 

— 

— 

BCHIN 

E112 

E10F 



8CK0UT 

E118 

E115 

— 

— 

BCKIN 

EUE 

E11B 

— 

— 

BGETIN 

E124 

£121 

— 


SYS 

E12A 

E127 

FFDE 

FFDE 

SAVET 

E156 

E153 

FFDB 

FFDB 


nverte in FLPT e lo rimette in FAC 
Converte una stringa ASCII, il cui indirizzo n 
el testo BASIC e* indicato da TXTPTR, a FLPT n 
el FAC 

Costante MFLPT usata nella conversione in stri 
nga ASCII 

Stampa "IN" seguito dall' attuale numero di li 
nea. Esempio (CURLIN). 

Stampa l'attuale numero di linea da (CURLIN) 
Stampa FAC come stringa ASCII 
Converte FAC in stringa ASCII con inizio allo 
STACK e fine con Byte nullo 

Converte FAC in stringa ASCII di inizio a STAC 
K-l+Y 

Converte TI in stringa ASCII con partenza a 5T 
ACK e fine con un Byte nullo. 

Costanti MFLPT usate in conversione ASCII 
Esegue la funzione SQB 

Esegue 1’ Esponenziale. AFAC alla potenza di F 

AC risposta in FAC 

Negazione di FAC, risposta in FAC 

Costanti MFLPT per la routine EXP 

Valuta là funzione EXP 

Valutazione ddi funzione. All 1 ingresso (A/Y) 
punta al singolo Byte che e' uguale al- il nu 
mero di costanti che lo segue.La routine inizi 
almente converte 1' argomento in un intervallo 
compreso fra 0 e 0.999999999. 

Costanti MFLPT per valutazione RND 
Esegue RND 

Manipola un errore di 1/0 entro il basic 
Routine di uscita carattere basic - usa la rou 
tine Kernal CHROUT 

Routine di ingresso carattere basic - usa la r 
outine Kernal CHRIN 

Routine di apertura di un canale basic in usci 
ta - usa la routine Kernal CKOUT 
Routine basic di apertura xanale per INPUT - u 
sa la routine Kernal CHKIN 

Routine di lettura di un carattere basic - usa 
la routine Kernal GETIN 

Esegue SYS - CBM64/VIC20 fissano (A,X,Y e SR) 
rispettivamente da (SYSA),(SYSX),(SYSY),(SYSS) 
prima di entrare nella routine in codice macch 
ina e ripristinano i nuovi valori al ritorno 
Esegue SAVE - CBM64 e VIC20 ricercano i pararne 
tri dal testo basic prima delia chiamata della 
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routine Kernal, anche la routine Kernai del Pe 
t legge i parametri 

SAVER E15F Else F6A7 F6E3 Esegue il salvataggio della Ram su una data pe 

riferica - il CBM64 e il V1C20 saltano alla 
routine Kernal SAVE 

VERFYT E165 E162 FFDB FFDB Esegue VERIFY - il CBM64 e il VIC20 ricercano 

i parametri dal testo basic prima di saltare a 
Ila routine Kernal. 

LOADT E168 E165 FFD5 FFD5 Esegue LOAD - il CBM64 e il VIC20 ricercano 

i parametri dal testo basic prima di saltare a 
Ila routine Kernal. 

LOADR E175 E172 F322 F356 Carica la RAM da una periferica - il CBM64 e i 

1 VIC20 ricercano i parametri dal testo basic 
prima di saltare alla routine Kernal. 

OPENT E1BE E1BB FFCO FFCO Esegue OPEN - il CBM64 e il VIC20 ricercano 

i parametri dal testo basic prima di saltare a 
Ila routine Kernal. 

CLOSET E1C7 E1C4 FFC3 FFC3 Esegue CLOSE - il CBM64 e il VIC20 ricercano 

i parametri dai testo basic prima di saltare a 
Ila routine Kernal. 

CLOSER E1CA E1C7 F2AC F2E0 Chiude un dato FILE 

SEPARA EID4 E1D1 F43E F47D Prende i parametri dal testo basic per LOAD/SA 

VE/VERIFY 

COMBYT E200 E1FD F460 F49F Se (TXTPTR) e' indirizzato a una apice , leg 

ge un byte dal testo basic 

DEFLT E206 E203 F50E F54D Se viene trovato la fine di un comando esce se 

nza aver fissato i parametri. 

CMMERR E20E E20B F516 F555 Verifica che TXTPTR indirizzato all* apice n 

on sia seguito da virgola o da byte nullo - in 
caso contrario SYNTAX ERROR 

OCPARA E219 E216 F4CE F50D Ricerca i prametri dal testo Basic per le rout 

ines di OPEN e CLOSE 

COS E264 E261 DFD8 D282 Valuta la funzione COS- aggiunge pi greco/2 a 

FAC poi — 

SIN E26B E268 DFDF D289 Valuta la funzione SIN 

TAN E2B4 E2B1 E028 D2D2 Valuta la funzione TAN calcolando SIN/COS 

PI2 E2E0 E2DD E0S4 D2FE Costante pi greco/2 di MFLPT 

TWOPI E2E5 E2E2 £059 D303 Costante 2*pi greco di MFLPT 

FR4 E2EA E2E7 E05E D308 Costante 0.25 di HFLPT 

E2EF E2EC E063 D30D Costante MFLPT per il calcolo della funzione S 
IN 

ATN E30E E30B E08C D32C Calcola la funzione ATN 

E33E E33B EOBC D3SC Costante MFLPT per il calcolo di ATN 

BASSFT E37B E467 - Routine di restart (WARM) del Basic chiamata c 

on un BREAK se una istruzione BRK e 1 rilevata 
oppure se e' premuto RUN/STOP PESTORE. Chiude 
i canali, resetta le linee di I/O, resetta lo 
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XNITV 

E453 

E45B 

INIT 

E394 

E378 

ININV 

E397 

E37B 


INITAT 

E3A2 

E387 

RNDSED 

E3BA 

E39F 

INITCZ 

E3BF 

E 3 A4 


1H0RDS 

E460 

E429 

FREMES 

E473 

E436 

BVTRS 

E447 

E44F 

10BASK 

E 500 

E 500 


SCRNK 

£505 

E505 

PLOTK 

E50A 

E 50 A 


INITIO 

E518 

E 518 

HOME 

E566 

E581 

PLOTR 

E56C 

E 587 

PANIC 

s 

tn 

to 

E5B5 

DFLTIO 

E5A0 

E5BB 

VICINT 

ESA8 

E5C3 

KBGET 

E5B4 

E5CF 

KBINP 

E5CA 

E5E5 

KSINP 

E632 

E64F 


EU6 D3B6 


EOF9 D399 
EHI D3B1 


E1B7 D44B 
E1C4 D458 


E1DE E60F 
E257 EOSF 
E25D E06F 


E285 E0A7 
E29A EOBC 
E2F4 EX16 


STACK ed esce attraverso la routine IERROR con 
(X) = $80 

Copia BVTRS nel blocco 0 della RAM 
Iniziaiizza il Basic all* accensione—se viene 
chiamata XNITV per gettare i vettori Basic in 
$0300-$030B, allora- 

Chiama la routine di INITCZ per settare le var 
iabili Basic nella pagina zero.(Il PET azzera 
il contenuto della memoria da $0400 a fine mem 
oria, mentre ciò' non’avviene con CBM64 e VIC2 
0). Chiama in funzione la routine INTMS, poi v 
a in modo Basic. 

Copia principale della routine CHRGET - copia 
all' indietro in pagina ZERO da INITCZ 
Costante MFLPT=0.811635157 usata per il valore 
iniziale della funzione RND 

Inizializza la RAM Basic- fissa USRPOK, ADRAY1 
, ADRAY2, copia INITAT e RNDSED in CHRGET e RN 
DX. fissa TXTTAB e FRETOP a (LORAM), (HIRAM), 
mette a zero il primo Byte del testo Basic 
Testo "BYTES FREE" 

Testo".. .COMMODORE BASIC...•• 

Copia ROp dei vettori BASIC 

Riporta in (X/Y) X' indirizzo dal 6526 (CIA) u 
tilizzato dalla routine IRQ.Questa e' la routi 
ne Kernal IOBASE 

Riporta la disposizione organizzativa dello se 
heroo-colonne (X), righe (Y). Entrata attraver 
so il vettore Kernal SCREEN 

Fissaa/riporta la pposizione del cursore: le c 
olonne di schermo attraverso (Y), le righe di 
schermo attraverso (X).Fissa il cursore se il 
Carry e' a 0, ne riporta invece la posizione s 
e il Carry e* al. Ingresso attraverso il vett 
ore Kernal PLOT. 

Inizializza I/O. Questa routine e' chiamata tr 

amite il vettore Kernal IOBASE 

Home di schermo, resetta la tavola di link del 

le linee di schermo 

Muove il cursore a (TBLX), (PNTR) 

Resetta le linee di I/O, incluso i registri dé 
1 VIC-II 

Resetta i canali di I/O poi.... 

Ripristina i valori del 6567 (VIC-II) 

Prende un carattere dal Buffer di tastiera 
Input di un carattere 

Input di un carattere da tastiera o schermo 
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SCINP E63A £657 E2FF £121 

TGLQT £6S4 E6B8 E33F E16A 

SCPUT E691 E6C5 E34C E177 

SCNPNT E716 E742 E3D8 £202 


CKDECL E8A1 E8E8-■- 

CKINL E8B3 E8FA - 

SCNTABL E8DA E921 - 

SCROLL EBEA ES75 E53F E3C8 
IRQK EA31 EA41 E61B E442 


SCNKIK EA87 EB1E E68E E4CD 


KBDTBL EB79 EC46 E6F8 E6D1 


TALKK ED09 EE14 F0B6 F0D2 


LSTNK EDOC EE17 FOBA F0D5 


SCNDK EDB9 EECO- 


TKSAK EDC7 EECE- 


CIOUTK EDDD EEE4 F16F F19E 

UNTLKK EDEF EEF6 F17F F1AE 

UNLSNK EDFE EF04 F183 F1B9 


Input dì un carattere dallo schermo. 

Congiunge il flag di virgolette (QTSUf). Durant 
e la fase di INPUT arresta la codificazione CT 
OKEN) delle parole chiave quando queste sono f 
ra apici 

Stampa il contenuto di (A)sullo schermo. Utili 
zzata da SCNPNT 

Stampa un carattere sullo schermo, interpretan 
do sia i controlli di cursore, il cambio di co 
lore e il cambio di set di caratteri 
Controlla il decremento del contatore linea. 
Controlla 1' incremento del contatore linea. 
Tavola usata per la decodifica dello schermo 
Routine di scrollìng schermo 
Routine principale di manipolazione interrupt 
di IRQ.( CINV punta a queste locazioni di memo 
ria) 

Routine di scansione della tastiera, controllo 
di tasto premuto e immette il carattere nella 
coda di tastiera. Questa e' la routine indiriz 
zata dal vettore Kernal SCNKEY 
Tavola della matrice di tastiera. Utilizzata d 
• SCNKYK per convertire il tasto premuto nel c 
arattere ASCII 

Esegue un OR con (A) per convertire il numero 
di periferica in un indirizzo di TALK per il B 
US IEEE e lo trasmette come comando. Questa e‘ 
la routine Kernal indirizzata da TALK 
Esegue un OR con (A) per convertire il numero 
di periferica in un indirizzo di LISTEN per il 
bus IEEE e lo trasmette come comando.Questa e 1 
la routine Kernal indirizzata da LISTEN 
Converte (A) e lo trasmette come indirizzo sec 
ondario di LISTEN sul BUS IEEE. Questa e' la 
routine Kernal a cui si accede per mezzo di SE 
COND 

Converte (A) e lo trasmette come indirizzo sec 
ondario di TALK sul BUS IEEE. Questa e' la 
routine Kernal a cui si accede per mezzo di TK 
SA 

Trasmette un Byte sul BUS IEEE. Il carattere e 
' bufferi. zza to cosi 1 che e* possibile eseguire 
un HANDSHAKING.Questa e’ la CIOUT Kernal 
Trasmette un comando di UNTALK sul BUS IEEE. Q 
uesta e* la routine Kernal che e’ indirizzata 
dal vettore UNTALK 

Trasmette un comando UNLISTEN sul BUS IEEE. 11 
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ACPTRK 

NMICNT 

RSWRT 

RSBLD 

KKSGTX 

KMESSO 
CETINK 

CHRINK 

CHROTK 

CHKINK 

CKOUTK 

CLOSEK 

CLALLK 

CLRCHK 

OPENK 

LOADK 

SA VER 


EE13 EF19 F18C FICO 

EEBB EFA3 - 

EF06 EFEE - 

EF59 F036 - 

FOBD FI 74 FOOO FOOO 

F12B F1E2 F1S6 F158 
F13E FIF5 FIDI F205 

F157 F20E F1E1 F215 
FICA F27A F232 F266 


vettore Kernel UNLSN comincia di qui 
Un byte e* in HANDSHAKEN dal BUS IEEE e immess 
o in A. Questa e' la routine Kemal ACPTR 
- Continuazione della Routine principale di INTE 
RRUPT NMI usata per le periferiche RS232 
Uscita di un Byte su canale RS232 
Parte della Routine di interrupt NMI che costr 
uisce il bit individuale proveniente dal canal 
e RS232 

Testo relativo ad un errore Kernal e controllo 
del messaggio ivi immagazzinato- 
Stampa un messaggio Kernal sullo schermo 
Riceve un carattere da un canale e lo riporta 
in A. Se nessun carattere e' Btato inviato rip 
orta 0. Questa e 1 la routine Kernal GETIN 
Input di un carattere dal Buffer in A.questa e 
• la routine Kernal CHRIN 

Uscita del Byte contenuto in A nel canale di u 
scita. Questa e' la routine Kernal CHROUT 


F20E F2C7 F7BC F7FE 
F250 F3Q9 F770 F71F 

F291 F34A F2AC F2E0 

F32F F3EF F26E F2A2 

F333 F3F3 F272 F2A6 

F34A F40A F524 F563 

F49E F542 F3CC F40B 

F5DD F67S F6A4 F6E3 


Colloca il file dichiarato da X come canale di 
input. Questa e* la routine usata dal vettore 
Kernal CHKIN 

Colloca il file dichiarato da ¥ come canale di 
uscita. Questa e* la routine usata dal vettore 
Kernal CHKOUT 

A dichiara il file che deve essere chiuso. I p 
articolari sono rimossi dalla tavola delle per 
iferiche (SAT, FAT). Questa e' la routine Kem 
al CLOSE 

Questa routine blocca tutti gli attuali I/O. I 
1 numero di file aperto (LNTND) e* messo a zer 
o e qualsiasi file su IEEE e' messo in UNTALE 
O UNLISTEN.Questa e‘ la routine Kernal CLALL. 
Dealloca i canali di I/O e rifissa le periferi 
che (DFLNT=0,DFLTO=3). Questa e' la routine ke 
mal CLRCHN 

Apre il file i cui dati sono immagazzinati in 
FNLEN,LA,SA,FNADR inserendo i dettagli nelle t 
avole di LAT.FAT e SAT e scegliendo le appropr 
iate routine per la gestione di files su disco 
o cassetta. Questa e' la routine Kernal OPEN 
Carica il file negli indirizzi detti sopra. Il 
CBM64 ed il VIC 20 hanno un parametro addizion 
ale che dichiara dove il file deve essere rica 
ricato. Questa e* la routine Kernal LOAD 
Salva una data zona di memoria RAM (STAL e NEH 
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UDTIMK F69B F734 F729 F766 


STOPK F6ED F770 F30F F343 


KERROR F6EB F77E F31S F349 


THEADR F72C F7AF F5A6 F5ES 
TCNTL F8QD F88A F806 F&4B 


TREAD F92C F98A F855 F89A 

TBYT FA70 FABD F931 F976 

TWRT FBAS FBEA FBB3 FBDB 

COLO FGE2 FD22 FCD1 FD16 


MEMCHK -FE91--4- 

NMIXCT FE43 FEA9 - 


8AUDTD-FF5C- 

INTRPT FF48 FF72 E61B E442 


KVCTRS FF81 FF8A FFCO FFCO 
NMIVEC FFFA FFFA FFFA FFFA 
RSTVEC FFFC FFFC FFFC FFFC 
IRQVEC FFFE FFFE FFFE FFFE 


USS) su un File indentificato da (FNLEN,LA,FA, 
SA.FNADR). Questa e' la routine kernal SAVE 
Parte della ruotine di servizio IRQ che posizi 
ona 1' orologio in tempo reale. Inoltre immaga 
zzina l'attuale valore della matrice di tastie 
ra in STKEY che abilita la funzione di STOF. Q 
uesta e' la routine Kernal UDTIM 
Controlla il valore immagazinato in STKEY e re 
stituisce il flag 2 a 1 se il valore ivi immag 
azzinato rappresenta il tasto STOP. Questa e’ 
la routine Kernal STOP 

Errori controllati dalle routines Kernal. Ques 
ta routine entra in funzione per inviare il gi 
usto messaggio di errore 
Cerca e legge il bloccodi testa dei nastro. 

Le routineB di controllo nastro risiedono in q 
uesto punto. Eseguono le funzioni come: contro 
Ilo del motore di cassetta, temporizzazione, e 
cc. 

Routine di lettura nastro 

Routine di manipolazione di un Byte per lettur 
a nastro 

Routine di scrittura nastro 

Routine di iniziai lzzazlone utilizzata all' ac 
censione della macchina. Questa e* la routine 
che e* indirizzata via HARWARE dal vettore loc 
alizzato a $FFFC. La memoria e' inizializzata 
e tutte le periferiche di I/O sono fissate. La 
prima parte della routine controlla se un cart 
ridge e* caricato nel blocco 9 e se e’ cosi’ s 
alta al cartridge per la inizializzazione e la 
messa in funzione 

Questa routine nel VIC20 controlla quanta memo 
ria e’ disponibile 

Nel VIC e nel CBM 64 1* NMI Interrupt e' princ 
ìpalmente usato per gestire le periferiche RS2 
32. I PET invece non 1* adoperano per niente 
Tavola dei BADO RATE per il VIC 
Questa routine entra in funzione quando viene 
rilevato un Interrupt. I registri sono salvati 
e la causa dell' Interrupt viene determinata ( 
IRQ o BRK) 

Tavola dei salti delle routines Kernal 
Vettore di Interrupt NMI 
Vettore di Reset 
Vettore di Interrupt IRQ 
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